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Fi] F5 
Ê= LE.F. = 
= Le Spécialiste de la Micro TURBO = 


vous propose 


Le Macintosh Plus 
et son TURBO DISK 


Caractéristiques 
Mac TURBO DISK 


Caractéristiques 
Macintosh plus 


- Disque Dur 20 Méga octets 

- Très haute vitesse d'accès (le 
plus rapide du marché) 

- Haute fiabilité 

- Système de Suspension 
Breveté 

- Très faible consommation 

- Démarrage automatique sans 


- Micro processeur 68000 

- 128 K ROM intégrant des 
fonctions graphiques rapides 
et la gestion de bureau 

- Clavier avec bloc numérique 
et touches curseur 

- RAM 1 Méga octet 
extensible à 4 Mégas 


- Lecteur de disquette 
800 K intégré 

- Interface SCSI permettant 
de relier des périphériques 
puissants 

- Système d'exploitation 5.1 


disquette de boot 


- Partitionné en nombre 


programmable de volumes 


- Protection de chaque volume 


par mot de passe program- 
mable 


avec architecture supérieure - Garantie 1 an 


et mémoire cache 





A) Vous êtes équipé d'un Macintosh 


EF vous transforme votre Macintosh pour seulement : 

- 4.500 F HT (si vous êtes équipe d'un 512 K d'origine Apple) 

- 6.500 F HT (si vous êtes équipé d'un 128 K d'origine ou étendu) 

- Pour ces prix, EF vous change la plaque mère, le lecteur de disquettes et le clavier. 
- La transformation est garantie 1 an par Apple. 


- Ces prix ne sont valables que pendant une durée limitée, réservez dès aujourd'hui votre transformation 
- De plus, si vous achetez cette transformation, HAUTE TRE ent L a 11.900 F HT 
B) Vous n'êtes pas encore équipé d'un Macintosh 


IEF vous offre Macintosh PIuS exceptionnellement pour 24.900 F HT 
ou mieux encore la Promotion spéciale lIEF de lancement : 








IEF propose des conditions spéciales pour les Grands Comptes et ls établissements d'enseignement 
Si vous voulez profiter d'une de ces offres, renvoyez vite le coupon réponse ci. dessous 
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Éditorial 


En tant qu'éditeur consciencieux, Pom's souffre depuis déjà quelque temps de la richesse des versions de 
l'Apple II : quand nous testons un programme en vue de sa publication, nous essayons de voir s'il 
fonctionne sur Apple IT Plus, Ile, Ie modifié IIc ; multiplié par DOS et ProDOS, cela donne huit 
combinaisons... Heureusement que nous avons quelques idées sur ce qui fait qu'un programme a des 
chances d'être compatible ou non ! 


Jusqu'à présent, ces pénibles recherches nous étaient à peu près évitées avec le Macintosh, qui ne 
connaissait que les versions 128K et 5 12K0. Hélas, l'horizon semble se couvrir de nuages : se rajoute à 
tout cela le MacPlus, et on entend déjà parler du Mac 512Ko avec lecteur de 800Ko... Dans ce numéro, 
nous aidons les utilisateurs présents et futurs du MacPlus en leur donnant des indications sur ces irritants 
problèmes de compatibilité. 


Chose promise, hélas. dès aujourd'hui nous devons augmenter le prix des disquettes 5,25 pouces mais 
nous osons ne pas en rougir, vous connaissiez le prix de 55,00 F depuis 1983. 


Voici dans ces pages - que vous trouverez, nous l'espérons, bien remplies - un beau programme CPIM : 
un disque virtuel pour les heureux possesseurs de carte 80 colonnes étendue. Si l'on en croit les bulletins 
de sondage que vous nous avez renvoyés nombreux, vous réserverez bon accueil au jeu “Snake” (ou 
‘comment cultiver ses réflexes. .”). PostScript fait son entrée dans ce numéro ; rares sont ceux qui ont la 
disposition d'une LaserWriter mais l'aspect “Forth" de la chose ne devrait pas laisser indifférent. 


Pas moins de 1280 points par ligne : c'est la résolution, souvent inexploitée, de votre imprimante Apple ; 
il n'en sera plus ainsi, car nous vous proposons un programme qui redonnera à vos courbes 
mathématiques la finesse que vous souhaitiez obtenir. Toujours au chapitre des imprimantes, c'est à la 
GP500 que nous donnons un programme de Hard-Copy. En plus des rubriques habituelles, vous 
découvrirez un utilitaire Pascal, une sauvegarde DOS avec numéros de version, l'art et la manière de 
‘tokeniser” les chaînes, et enfin Datheur, un utilitaire dont la valeur pédagogique n'échappera pas. 


Les numéros 22 et 23 proposaient des “Composeurs téléphoniques” pour Apple !{+, [le et {lc ; il n'y avait 
aucune raison pour cela s'arrête là... Les utilisateurs du Macintosh trouverons donc dans ce numéro le 
schéma de cette petite ‘interface’, ainsi qu'un programme Basic permettant son utilisation immédiate. 
Dans un autre registre, plus pointu certes, vous trouverez dans le “cahier Mac” deux routines en 
assembleur propres à faciliter le travail du programmeur. À noter que le respect des notions exposées 
dans cet article permettrait à nombre de produits commerciaux de ressembler à des programmes 
‘Macintosh’ … Îl en va de même pour un autre article, baptisé “Le bundle er le finder”. 


Nous vous donnons rendez-vous à cette grande fête annuelle qu'est Apple Expo ; Pom's vous y 
accueillera avec plaisir. N'oubliez pas d'emporter ce numéro : vous entrerez à demi-tarif ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, André Brunel, Pascal Cantot, Serge Cattan, 
Alexandre Duback, Biuno Fénard, Jean-Michel Gourévitch, Olivier Herz, Philippe Krepper, 
Philippe Magnien, Gérard Michel, Jean-Paul Payen, Christian Piard, Jean-François 
Rabasse, Jean-Marc Roulon, Marianne Sutz, Hervé Thiriez, D. Venot, G. Zwingelstein. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : N.M.PP. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes. Tél. : (1) 43.28.18.63. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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Un disque virtuel sous CP 


e RAMdisk ou disque 
virtuel, représente le 
mode d'utilisation le plus 


souple de cartes 
d'extension mémoire. Il offre les 
services d'un disque de capacité 
réduite mais de coût nul et de 
vitesse d'accès très élevée. 


De tels utilitaires existent sur 
Apple, pour fonctionner sous 
DOS 3.3 ou CP/M, proposés par 
les fabricants d'extensions 
mémoire (Legend 128 KDE, 
Titan etc.). Dansle cas particulier 
de l'extension 64Ko de l'Apple 
Ile (carte 80 colones étendue), un 
RAMdisk est implanté par 
ProDOS, d'autres sont 
disponibles pour le DOS 3.3 (Cf 
Pom's 14 par exemple). Le 
programme présenté ici vient 
compléter la collection en 
proposant un RAMdisk de 60Ko 
sous CP/M 2.23, implanté dans 
la RAM auxiliaire. (On peut 
ajouter que l'utilisation d'un 
RAMdisk sous CP/M est très 
agréable, ce système d'exploi- 
tation passant presque autant de 
temps à faire tourner ses disques 
qu'à se mettre à la disposition de 
l'utilisateur. 


+ La programmation en langage 
machine avec le cycle Éditeur, 
Assembleur avec son fichier 
source, son fichier objet, son 
fichier listing, puis Debuger et 
re-Éditeur, est accélérée de façon 
sensible. 

* Le basic Microsoft offre une 
gestion des fichiers à accès direct 
très puissante, qui devient très 
efficace avec les fichiers en RAM 
auxiliaire. 

+ Enfin la mise en œuvre de 
CP/M est moins acrobatique pour 
ceux qui ne possèdent qu'un seul 
lecteur). 


Configuration 
requise 


Un Apple //e avec sa carte 80 
colonnes étendue, et une carte 


Z80 avec CP/M 2.23. Attention, 
Microsoft livre son CP/M en 
version 44Ko (fonctionnement 
sur un Apple sans carte langage), 
reconfigurable en 60Ko avec 
Futilitaire CPM60. 

Ce programme est interfacé avec 
le CP/M 60Ko (configuration 
normale sur un Apple //e.) 
D'autre part le programme est 
prévu pour un système avec 1 ou 
2 lecteurs de disquettes 
maximum. Pour un système à 3 
ou 4 drives, quelques petites 
modifications sont indiquées plus 
loin. 

NB : Il existe depuis peu une 
extension Z80 CP/M pour 
l'Apple //c. Ce programme 
devrait pouvoir être adapté. 
L'essai n'a pas été fait. 


Création du 
programme 


Avec un assembleur Z80, éditer 
puis assembler le programme 
source. Le programme objet est 
un fichier CP/M .COM, donc 
l'adresse d'implantation est 
0100H (début du TPA). 

Sans assembleur, entrer le code 
objet hexadécimal en utilisant 
DDT, à partir de l'adresse 0100. 
(Il est indispensable de vérifier 
très soigneusement le code 
frappé. Ce programme manipule 
les commutateurs des pages 
mémoire et modifie les routines 
d'accès disque de CP/M. Des 
erreurs de frappe peuvent 
entrainer des effets grandioses à 
l'exécution. Si vous n'êtes pas 
sûr de votre virtuosité au clavier, 
il nest pas inutile de faire les 
premiers essais avec une 
disquette copie !) 

Sauvegarder le code par : 

SAVE 3 RAMdisk.COM 


Utilisation 


Elle est très simple. Au niveau 
commande de CP/M, frapper: 


J-F Rabasse 


RAMdisk <return> 


Le programme s'exécute puis 
affiche le message 


M: en service..... 
et retourne au CCP. 


Le disque virtuel est prêt. Il est 
repéré par M (Mémoire). On y 
accède par m: . On peut y 
transférer les fichiers et utilitaires 
désirés par PIP. Pour des 
utilisations régulières il est 
pratique de créer un fichier Batch, 
comportant l'appel de RAMdisk 
et tous les transferts souhaités 
(PIP, ED, DDT, etc.) lancé par 
une commande SUBMIT. 


Une remarque : il peut arriver, en 
cours de travail, un “plantage” (si 
si !), qui oblige à rebooter 
complètement CP/M et donc à 
devoir réimplanter le RAMdisk. 
Dans ce cas, le programme 
détecte la présence du disque 
virtuel en Ram auxiliaire et 
affiche le message suivant : 


Un RAMdisk existe.,... 
faut-il l'annuler (O/N)? 


En tapant N, on a alors la 
possibilité de ne pas réinitialiser 
la RAM auxiliaire et donc de 
pouvoir récupérer ses fichiers de 
travail qui, conformément à la loi 
de Murphy, n'étaient pas 
sauvegardés sur une vraie 
disquette lors du plantage. 
Attention, ce contrôle consiste à 
vérifier la présence du code de 
gestion du RAMdisk. Si un 
plantage sévère a eu lieu lors de la 
mise au point d'une routine qui 
sévit en RAM auxiliaire, 
l'intégrité 

des fichiers n'est pas assurée. Si, 
en revanche, on souhaite 
redémarrer sur des bases 
nouvelles il suffit de répondre O à 
la question. (On peut aussi taper 
TL 


Fonctionnement 


Avant de détailler le 
fonctionnement de RAMdisk, il 





est utile de rappeler le 
fonctionnement de CP/M et la 
gestion des disques. 

CP/M est constitué de trois 
grandes parties : 


+ le CCP (Console Command 
Processor) qui gère toutes les 
commandes de l'utilisateur, en 
provenance du clavier. 


+ le BDOS (Basic Disk 
Operating System) qui est 
l'interface entre les programmes 
d'application et le système 
d'exploitation, et qui réalise 
toutes les fonctions d'entrées/ 
sorties, accès aux fichiers 
disques, gestion des 
périphériques. Ces fonctions au 
nombre de 41 sont documentées 
dans les ouvrages traitant de 
CP/M. L'accès au BDOS se fait 
par l'adresse système 0005, avec 
le code de la fonction désirée 
dans le registre C du Z80; 


* Le BIOS (Basic Input Output 
System) qui est l'interface entre le 
BDOS et le calculateur sur lequel 
est implanté CP/M. Ce BIOS est 
spécifique à chaque machine, 
c'est lui qui assure la gestion du 
"Hard". C'est donc en pratique 
au niveau du BIOS que se feront 
toutes les modifications ou 
adaptations de CP/M. 


Le BDOS accède au BIOS par 
l'intermédiaire d'une table de 
sauts, qui rassemble les fonctions 
élémentaires d'entrée-sortie. Cette 
table a la structure standard 
suivante : 


JP CBOOT 
JP WBOOT 


FA00: 00 NOP 

FAO1: O0 NOP 

FAO2: 00 NOP 

FA03: C3 B6 FA JP OFAB8H 
FA06: C3 10 FB JP 0FB10H 
FA09: C3 1A FB JP OFBIAH 
FAOC: C3 4D FB JP 0FB4DH 
FAOF: C3 70 FB JP CFB70H 
FA12: C3 7F FB JP CFB7FH 
FA15: C3 91 FB JP 0FB91H 
FA18: C3 75 FE JP OFE 75H 
FA1B: C3 997 FE JP OFE97H 
FAlE: C3 80 FE JP OFE80H 
FA21: Cir4 FB JP OFBF4H 
FA24: C3r9 FB JP OFRF 9H 
FA27: C3 C6 FE JP OFEC6H 
FA2A: C3 CC FE JP OFECCH 


A noter que la fonction 
ColdBOOT n'est pas implantée 
puisque le démarrage à froid n'est 
pas assuré par CP/M et le Z80, 
mais par la ROM Apple C6 et le 
6502. 


CP/M gère les disques à partir 
d'une adaptation de la routine 
Apple RWTS (implantée dans le 
Bank 1 à l'adresse $D420 ou 
0B420H), et d'un buffer de 256 
octets situé en OF800H. Les 
routines de lecture/écriture gèrent 
ce buffer pour adapter les 
demandes BDOS de secteurs 128 
octets, en accès disque par 
secteurs de 256 octets. La 
communication des paramètres se 
fait par des tables. Une table 
située en OF3E0-0F3EB 
(adresses 6502 $3E0-$3EB) 
contient les paramètres de 
RWTS : numéros de piste, de 
secteur, de slot, de drive, code 

erreur, ancien slot, ancien 

drive, etc. 


sinitialisation à froid 
sinitialisation à chaud 


JP CONSTS état de la console E/S Une autre table située 


JP CONSIN entrée console 
JP CONSOUT ‘sortie console 


JP LSTOUT ;sortie imprimante 
JP PTPUNCH : sortie perforateur 


en OFEES - OFEFF, 
contient tous les 
paramètres néces- 
saires au BDOS 


JP PTREAD lecture ruban perforé et au BIOS 
JP TRKO sremise à 0 tête de lecture disque pour la 
JP SELDRV ;sélection d'un lecteur de disques gestion du 
JP SETTRK ;choix de la piste disque. 
JP SETSECT :choix du secteur : 
JP SETDMA ;adresse de transfert Ceux qui 
JP READ lecture d'un secteur sont indis- 
JP WRITE ‘écriture d'un secteur pensables 
à la bonne 
Sur Apple, sous CP/M 2.23 marche de 
60K0, cette table est implantée de RAMdisk 
OFA0D à OFA2C : sont : 
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OFEEA numéro de la piste 


demandée 

OFEEB numéro du secteur 
demandé 

OFEFA/ 

OFEFB adresse du buffer à lire 
ou écrire 

OFEEF numéro du lecteur en 
cours 

OF3EA code erreur au retour de 
RWTS 


Modification des 
routines BIOS 


Certaines fonctions n'ont pas a 
être modifiées. TRKO, SETIRK, 
SETSECT et SETDMA se 
bornent à recopier dans la table de 
paramètres la valeur numérique 
adéquate. 

La fonction SELDSK (implantée 
de OFE97 à OFECS) est appelée 
avec, dans le registre C, le 
numéro du lecteur désiré (0 pour 
A:, 1 pour B: etc.). Cette routine 
vérifie que le numéro d'appel est 
valide (l'adresse 0F3B8 contient 
le nombre de lecteurs présents, 
détectés lors du Boot), puis 
retourne dans le registre HL 
l'adresse de la table de paramètres 
du lecteur. Ces tables de 
paramètres, longues de 16 octets 
sont situés en OFA33, OFA43, 
OFAS3, 0FA63, pour les lecteurs 
A:,B;, C:et D: 

La modification de SELDSK 
consiste à tester si le numéro du 
lecteur appelé correspond au 
RAMdisk reperé par M: soit un 
numéro 12. Si oui, on recopie le 
numéro à l'adresse OFEEF, et on 
retourne dans HL l'adresse des 
paramètres RAMdisk. (cette table 
a été installée en OFAS3, zone 
libre sur un système à deux 
drives). Si un autre lecteur est 
appelé, on rend la main à la 
routine SELDSK standard. 


Les fonctions READ et WRITE 
commutent le Bank 1 de la ram 
Apple (où sont situées toutes les 
routines d'accès disque) et 
sautent à la routine de gestion de 
RWTS implantée de 0B247 à 
0B358, point d'entrée lecture en 
0B247, point d'entrée écriture en 
0B257. 

La modification consiste à tester 
si le numéro du lecteur en cours 


(OFEEF) est celui du RAMdisk, 
et le cas échéant à détourner vers 
les routines de lecture/écriture 
RAMdisk. En sortie de ces 
routines, on copiera dans 0F3EA, 
un 0 ou un code d'erreur eventuel 
(codes d'erreurs de RWTS). 


Remarques concernant 
la table des paramètres 
disque 

Pour chaque lecteur de disques, 
CP/M utilise une table de 16 
octets contenant les adresses de 
zones de travail. Cette table 
comporte 8 octets réservés à 
CP/M, l'adresse d'un buffer de 
128 octets pour le catalogue des 
disques (cette adresse est la même 
pour tous les lecteurs : OFEFD), 
l'adresse des paramètres 
d'organisation de la disquette, et 
les adresses de deux autres 
buffers de 12 et 18 octets 
respectivement. Le CP/M Apple 
peut gérer jusqu'à 4 disques A, 
B, C, D. Microsoft a prévu 
l'implantation de 4 tables, de 
0FA33 à OFA72, et tous les 
buffers de travail nécessaires. Si, 
par exemple, on n'utilise que 2 
lecteurs, on peut "emprunter" la 
table prévue pour le drive C: 
OFAS3. 

La seule modification à apporter 
concerne l'adresse de la table 
d'organisation de la disquette 
(1leme et 12eme octets). Les 
lecteurs Apple étant tous 
identiques, une seule table est 
prévue pour les 4 lecteurs 
possibles. Cette table, longue de 
15 octets, est implantée en 
0OFA73. Pour le RAMdisk, il est 
nécessaire de créer une autre 
table, identique à deux octets 
près : les 6 et 7èmes qui 
contiennent la taille du disque 
sous forne du plus haut numéro 
de bloc. Avec un RAMdisk de 
60Ko, donc 60 blocs, on devra 
écrire 59 dans cette table soit 3B 
00. 


La table d'organisation de la 
disquette peut être placée en 
0FA63 toujours si l'on n'utilise 
que 2 lecteurs. En revanche, sur 
un Apple équipé de 4 lecteurs, il 
faudra créer et placer les deux 
tables de paramètres et tous les 
buffers nécessaires. 


Tables des paramètres lecteurs de CP/M 2.23 60k : 


FA33 00 00 00 00 00 00 00 00 FD FE 73 FA CS FF ?7D FF 
FA43 00 00 00 00 00 00 00 00 FD FE 73 FA D1 FF 8F FF 
FAS3 00 00 00 00 00 00 00 00 FD FE 73 FA DD FF A1 FF 
FA63 00 00 00 00 00 00 00 00 FD FE 73 FA E9 FF B3 FF 


Table des paramèties d'organisation des disquettes : 


FA 73 20 00 03 07 00 8B 00 2F 00 CO 00 0C 00 03 00 


Fonctionnement du 
RAMdisk 


Afin de limiter la place occupée 
en mémoire centrale, la majorité 
du code de gestion du RAMdisk 
est implantée en Ram auxiliaire. 
Seulement une cinquantaine 
d'octets sont en mémoire 
principale. Ils ont été placés de 
0F100 à 0F130, zone inuwlisée 
par CP/M car c'est la pile du 
6502. Le 6502 n'étant utilisé que 
pour gérer des routines 
d'entrées-sorties, il est peut 
probable qu'il remplisse sa pile si 
haut. 


Le programme compote une 
partie préparation de CP/M, et la 
partie gestion du RAMdisk, qui 
reste en machine. 


Lorsqu'on lance le programme, il 
commence par comparer les 256 
premiers octets du code de 
gestion avec le contenu de 13 ram 
auxiliaire de 0F100 à OF1FF. En 
cas d'identité, un pseudo disque 
est censé exister et la Ram 
auxiliaire n'est pas réinitialisée. 
Seul CP/M est reconfiguré. 


Le programme se recopie ensuite 
en Ram auxiliaire et commute la 
Ram, pour transferer l'exécution 
en Ram auxiliaire. Ceci permet la 
mise en place du code de gestion 
du RAMdisk (0F100 à OF2C7), 
et “l'initialisation” de la piste 3 
(Catalogue CP/M) en remplissant 
de codes Es. 


Le programme revient ensuite en 
Ram principale. L'accès au code 
de gestion RAMdisk est fait en 
recopiant le début du code 
(0F100 à OFi0D) en Ram 
principale. Ce tronçon comporte 
les "portes" d'entrées-sorties et la 
commutation de mémoire. 


Pour configurer CP/M il reste à 
installer les trois routines 
modifiées READ, WRITE “et 
SELDSK, de OFI0E à 0F130,“eæ 
modifier les adresses du veceur 
BIOS afin de pointer ces 
routines. 

Enfin on installe la table des 
paramètres de la pseudo disquette 
en 0FA63, et on pointe cette table 
dans le bloc CP/M réservé au 
pseudo disque, installé en OFA53 
(à la place d'un lecteur C:). 

Le programme affiche un 
message et rend la main au CCP. 


Code de gestion du 
RAMdisk 


La routine de lecture écriture du 
pseudo disque comporte quatre 
phases : 


Récupération des paramètres de 
l'appel disque et transfert de 
l'exécution en Ram auxiliaire, 
puis création d'une pile en Ram 
auxiliaire pour le Z80. 


Calcul d'une adresse mémoire 
correspondant aux numéros de 
piste et secteur. 

Les pistes 0,1 … OD sont placées 
en 00000,01000 …. 0D000, et la 
piste OE en ODO00 Bank 1. Le 
début théorique d'une disquette 
CP/M étant la piste du catalogue, 
et celui ci étant placé en piste 3, il 
faut transformer les numéros de 
pistes OF,10,11 appelés par le 
BDOS en 0,1,2. En cas d'appel 
d'un numéro supérieur, le 
programme retourne à CP/M avec 
le code 040 dans OF3EA (code 
L/O Error de RWTS). 


Transfert du secteur. 

Le transfert est délicat à cause de 
la commutation des pages de 
mémoire. Le secteur RAMdisk 
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peut se trouver dans la Ram 
48Ko ou dans la mémoire à Bank 
commuté, dans le Bank 1 ou le 
Bank 2. Le buffer CP/M peut être 
dans la Ram 48Ko ou la mémoire 
à Bank commuté, ou à cheval sur 
les deux. (C'est le cas par 
exemple avec le logiciel ED.COM 
qui charge ses fichiers en haut du 
TPA, sous l'adresse ODCO06. On 
a donc en général un secteur 
chargé de OAF86 à 0BO06). 
Certains transferts doivent se 
faire en deux temps, avec transit 
par un secteur temporaire situé en 
0F300. 

Pour obtenir un fonctionnement 


très rapide, on a choisi de faire 
les transferts par bloc complet en 
utilisant l3 puissante instruction 
LDIR du Z80, à l'aide de huit 
routines de transfert spécifiques à 
chaque cas, qui assurent le calcul 
des adresses et les commutateurs 
de mémoire à actionner. 


Le résultat est un code plus long 
qu'avec une routine unique de 
transfert-commutation octet par 
octet, mais le temps d'accès se 
trouve réduit dans un rapport 
quatre. 

Le transfert proprement dit est 
effectué par deux rounes COPI1 





et COPI2 situées l'une dans la 
mémoire 48Ko l'autre dans la 
mémoire à Bank. Ces routines 
sont indépendantes de l'état des 
commutateurs mémoire puisque 
tous les paramètres nécessaires - 
adresses de transfert et 
commutateurs à actionner - sont 
passés dans les registres 16 bits 
pl BC, DE, HL',BC' ,DE du 
Z80. 


Retour en Ram principale et au 


BDOS. 
G 





Source ‘RAMDISK.TEXT’ ; 


ROUTINE D'IDENTIFICATION DU RAMDISK 


ÿ 


TITLE RAMDISK LD 4L, 8LF 
h LD DE, BLO 
S'ORORÉIRÉRRRRRARRÉNÉIRÈLÉRRÉTÉTRARRRÉRRÉDÉÉIÉLÉARÉR LD BC,100H 
s# x LD (BKAUX) , À 
Le DISQUE VIRTUEL SOUS CP/M 2.23 > IDENTI: LD À, (DE) 
_ VERSION CP/M £60k dé CPI 
;* : JR N&, IDENT2 
#* APPLE //e 128 k e JP PO, IDENT2 
Al cs INC DE 
>" JF-R JUN 85 JR IDENTI1 
G'RRRARRIRRIRISRARRRRARRARRRRIRARATERARARRÈRILÈTEALE IDENT2: LD (BKMAIN) , A 
a JR NZ, PREP ; PAS DE RAMISK 
; COMMUTATEURS DES PAGES DE MEMOIRE LD C. 9 
; LD DE,MSG 
RDMAIN EQU 0E002H >RAM PRINCIPALE EN LECTURE CALL BDOS :MESSAGE DE CONFIRMATION 
RDAUX EQU 0E003H RAM AUXILIAIRE EN LECTSRE LD C,1 
WRMAIN EQU OE004H RAM PRINCIPALE EN ECRITURE CALL BDOS ;REPONSE? 
WRAUX EQU 0E005H ;RAM AUXILIAIRE EN ECRITURE LD HL, CARAC 
BKMAIN EQU OEO00BH ;RAM A BANC COMMUTE PRINCIPALE LO BC, 4 
BKAUX EQU 0E009H ;RAM À BANC COMMUTE AUXILIAIRE CPIR 
BK1 EQU OE08BH BANK 1 JR 2,PREP ; PREPARE LA RAM AUX. 
BK2 EQU DEOSSAN SBANK: 2 R MODIF ; CONFIG. CP/M 


“STOCKAGE DES VARIABLES 
SAVSP £QU 
OPER EQU 


0£'080h 


/SAUVEGARDE POINTEUR DE PILE 
SAVSP+2 ;CODE OPERATION: 
; 0 LECTURE, 2 ECRITURE 


CARAC: ASC "OYoy" ; CARACTERES VALIDES 
MSG: DFE ODH, CAH 

ASC "Un Ramadisk existe...,' 

DFB ODA, OAH 

ASC ‘faut-11 l''annuler (O/N)? $' 


î 


#RECOPIE DU CODE COMPLET EN RAM AUXILIAIRE 


BUFF  EQU OPER+1 ADRESSE BUFFER CP/M 

SECT  EQU BUFF+2 ;ADRESSE SECTEUR DEMANDE RES LE HE, DEB 

BANK EOU SECT+#2 ;CODE BANK DEMANDE LD DE, DEB 

TRK EQOU BANK+2 ,;:NO DE PISTE CP/M LD BC, LPROG 

SCT £OC TRK+1 :NO DE SECTEUR CP/M 20 (WRAUX) , À 

; LDIR 

; PARAMETRES ; 

5 ; TRANSFERT DE L'EXECUTION EN RAM AUXILIAIRE 
RAMDSK EOU *M°-'A' ;CODE M: POUR LE RAMDISK ‘ 

TEMP EQU 0F300H ;STOCKAGE TEMPORAIRE LD (RDAUX) , À 

STACK  EQU 0F100H ;NOUVELLE PILE 280 Fe Ra 

NBOCT EQU 80H ;NB D'OCTETS À TRANSFERER 5 

4 ;MISE EN PLACE DU CODE DE TRANSFERT 
BDOS  EQU 5 ;ENTREE BDOS ' 

€ LO HL, BLO 

pisse Rss F* DEBre 

4 PROGRAMME RAMDISK LD ac, LG2 

; ROUTINE DE PREPARATION ra 

£ ;INITIALISATION PISTE 3 (DIRECTORY CP/M) 
DEB EOU s 
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‘ 





LD HL, 30004 


LD A, 0ESH 
LD BC, OFFFH 
LD (AL), A 
LD DE, 30014 
LDIR 
; RETOUR EN RAM PRINCIPALE 
î 
LD (BKMAIN) , À 
LD (WRMAIN) , À 
LD CRDMAIN) , À 


 % 


; MODIFICATIONS DU CP/M EN R&4M PRINCIPALE 





MODIF EQU $ 


ÿ 


:MISE EN PLACE DU CODE D'ENTREE SORTIE 


. 
‘ 


LD HL, BLO 
LD DE, 8BLF 
LD BC, LG1 
LDIR 


MISE EN PLACE DU CODE DE DETOURNEMENT 


‘ 


LD HL, DETO 
LD DE, DETF 
LD BC, LGDET 
LDIR 


:MISE EN PLACE DU BLOC PARAMETRES DISQUE 


‘ 


LD HL, BLPAR 
LD DE, 0FA63H 
LD BC, LGBL 
LDIR 


MODIF TABLE DISQUE 


Se Ve 


LD HL, OFA63H 
LD {0FASDE) , RL 


“MODIF VECTEURS BIOS 





LD BL, READ 

LD (OFA28H), HL 

LD AL, WRITE 

LD (0FA2BH),HL 

LD AL, SELDSK 

LD {0FA1CH), HL 

LD C9 

LD DE, MSGOK ; MSSAGE TERMINE 

JE BDOS «SORTIE BDOS ET RETOUR 
‘ PAR LE CCP. 
MSGOK:  DFB ODH, OAH, ODH, OAH 

DFB RAMDS K+'a" 

ASC *": en service..... * 

DFB OD4, OAH 

ASC “e" 
î IMPLANTATION DU RAMDISK EN RAM AUXILIAIRE 
BLO EQU S :DEBUT DU CODE DE TRANSI'ERT 
BLF EQU OF10OK ; ET ADRESSE D'IMPLANTATEION 


. PRASE BLF 





i  ROUTINES D'ACCES: CE CODE EST COMMUN AUX DEUX 
: PAGES F1, PRINCIPALE ET AUXILIAIRE 


* 


WR 


SORTIE 


DETOUR 


VE MU NS 


i 


EQU 
EQU 


s :POINT D'ENTREE LECTURE 

À 

COMMUT 

s {POINT D'ENTREE ECRITURE 
A,2 

COMMUT 

$s ; POINT DE RETOUR DES ROUTINES 
(BKMAIN) , A 

{BKAUX) , À 

S-BLF 

$ ; IMPLANTATION DE LA 


ROUTINE DE DETOURNEMENT 


LA SUITE S'EFFECTUE EN RAM AUXILIAIRE 


RECUPERATION DES PARAMETRES ET CREATION 
D'UNE NOUVELLE PILE EN RAM AUX. 


LD 
LD 
LD 
LD 
LD 
LD 


(OPER) ,A 
HL, STACK 
(SAVSP) ,SP 
SP, AL 

HL, {OFEFAÆ) 
{BUEF} ,HL 
HL, (OFEEAH) 
{TRK) , HL 
(RDAUX) , À 
(WRAUX) , À 


“ADR. DU BUFFER CP/M 


PISTE ET SECT. DEMANDES 


; 


; CALCUL DE L'ADRESSE DU SECTEUR DEMANDE 


i ET TRANSFERT DU BLOC DE 128 OCTETS 
CALCAD: LD À, (TRK} 
CP 12A 3SI >= 12, I/0 ERREUR 
JR NC, ERREUR+1 
CP OFH #SI1 >= 0F, "REPLIEMENT“ 
JR C, CALCI1 
SUB OFH ; DO NO DE PISTE 
CALCI: LD HL, BK2 
CP OEH SI =0E, EN BANKI 
JR NZ, CALC2 
LD ÆL, BK1 
LD A, OBH : NOUVEAU N@ DE PISTE 
LD (TRK), À 
CALC2: LD (BANK) , HL 


‘ 


ADRESSE» TRK*4096 +SCT*128 


‘ 


ERREUR: 


D, A 

AL, (TRK) 
A 

E, À 

# 


L, A 

HAL, DE 
(SECT) , AL 
TRANSF 

À 

HL, 403EH 
{BK2),A 

HL, (SAVSP) 
SP, AL 
(ROMAIN) ,A 
{WRMAIN) , À 


; TRANSFERT DU SECTEUR 


:ERREUR+1= LD A4, 40H 


4 RECUPERATION DE LA PILE 
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LD {OF3EAR) ,A 
JR SORTIE 


;: CŒE ERREUR RATS 
: RETOUR AU BDOS 


j====- 200000022000 Susanne 
s ROUTINE DE COf#UTATION DES PAGES ET COPIE DE BLOC 
î RESIDE EN BANK AUX 





COPII: LD (AL) ,A ; RAM EN LECTURE 
LD {DE) , A # RAM EN ECRITURE 
EXX 
LDIR :TRANSFERT BLOC 
LD (REAUX) , À «REMISE EN LECT. 
LD (WRAUX) , À # ET ECRITURE DE IA 
RET * RAM AUXILIAIRE 


% 


# ROUTINE DE TRANSFERT 


COPA CCC PPT PTT TENTE’ EEE EE PET 


CRE 


;DETERMINATION DU TYPE DE TRANSFERT A EFFECTUER 


‘ 


TRANSF: LD A,H OCTET HAUT DE SECT 
cP 080H :EN RAM BANK ? 
LD À, {OPER) ;LECT. OU ECRIT. ? 
ADC A,0 
RLCA 
LD C,A 
LD DE, (BUFF') 
LD HL, CAFFFH 
LD A, 0F0H :SI BUFFER CP/M EN FXXX 
cp D : IL EST EN MAIN48 
JR NC, TRANSO 
LD 0,1 
TRANSO: XOR A 
sBC HL, DE 
JR C, TRANSI ;BOFFER EN BANK MAIN 
INC HL 
INC c 
RL c 
XOR A 
cP H 
JR NZ, TRANS2 :BUFFER EN MAIN48 
LD À, 7FH 
SUB L 
JR C, TRANS2 : BUFFER EN MAIN4& 
INC C *SINON, BUFIER À CHEVAL 
INC A ; SUR B000 
LD D,H 
10 E,A 
10 À, (OPER) 
oR À 
UR 2, TRANS2 
PUSH DE 4SI ECRITURE, ON EMPILE 
PUSH AL ;LES NB D'OCTETS APRES 
JR TRANS2 ; ET AVANT B000 
TRANS1: CCF 
RL c 
TRANS2: XOR A 
LD 8,A 
RL c 
LD HL, ADTR : LECTURE DE L'ADRESSE DE 
ADD HL, BC :IA ROUTINE DE TRANSFERT 
LD E, (HL) 
INC HL 
LD D, (HL) 
EX DE, HL 
JP (AL) :ET EXECUTION 


‘ 


:TABLE DES ADRESSES DES ROUTINES DE TRANSFERT 


‘ 


ADTR: DN TRI, TRI, TR2, TRI 
DR TR3, TR3, TR3, TR3 
D# TR4,TR4, TR5, TRE 
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DW TR7,TR7, TRS, TRE 


% 


TRI: LD HL, (SECT) 
LD DE, TEMP 
LD BC, NBOCT 
EXX 
CALL MOVES 
LD HL, TEMP 
LD DE, {BUFF) 
LD BC, NBOCT 
EXX 
JP MOVE3 
TR2: LD HL, (SECT) 
LD DE, (BUFF) 
LD BC, NBOCT 
EXX 
JR MOVEZ 
TR3: LD HL, {SECT) 
LD DE, {BUFF) 
LD BC, NBOCT Sur la disquette 
EXX d'accompagnement 
JP MOVE 4 de ce numéro, 
4 vous trouverez 
TRé: LD AL, (BUFF) < É 
LD DE, TEMP un fichier TEXT 
LO BC, NBOCT DOS 3.3 du 
EXX source de 
CALL MOVE3 RAMdisk, Le 
LD HL, TEMP fichier 
1D DE, (SECT) RAMDISK.COM à 
LD BC, NBCCT Le 
EXX été obtenu par 
JR MOVES transfert de la 
: disquette 
TRS: LD HL, (BUFF) originale CP/M à 
LD DE, (SECT) l'aide du 
LD BC, NBOCT 
Programme 
EXX : 
JR MOVE1 commercial 
; Universal File 
TR6: LD BL, (BUFE) Conversion. Vous 
LD DE, TEMP utiliserez ce 
POP BC progremme ou 
EXT APDOS pour le 
CALL MOVEI ei 
Pop BC transférer sur 
EXX votre disquette 
CALL  MOVE3 CP/M. 
LD HL, TEMP 
LD DE, (SECT) 
LD BC, NBOCT 
EXX 
JR MOVES 
TR7: LD HL, (BUFF} 
LD DE, (SECT) 
LD BC, NBOCT 
EXX 
UR MOVE3 
TRE: LD AL, {BUFF) 
LD DE, {SECT) 
POP BC 
EXX 
CALL MOVEI 
POP BC 
EXX 
JR MOVE3 


LA 





ROUTINES DE DEPLACEMENTS 


SSSR SSD be mmmmmET EE TEE EEE S 


& % Ve 


11 


DS 








12 


MOVE] : 


MOVE2 : 


MOVES : 


si 


2 OR QE A QE GS ONE QE QE OO QU OO QE A ES OP OO © —© 


LD BL, (BANK) 
LD (AL) ,A 

LD HL; ROMAIN 
LD DE, WRAUX 
JP COPII 

LD #HL, (BANK) 
LD (AL), A 

LD AL, ROMAIN 
LD DE, WRMAIN 
JP COPI1 

LD {BK2) ,A 
LD DE, HRAUX 
LD BC, SXMAIN 
UR CoP12 

LD (BK2),A 
LD DE, WRMAIN 
LD BC, BAMAIN 
UR CoPI2 

LD HL, {BANR) 
LD (HL) , A 

LD DE,NWRAUX 
LD BC, BKAUX 
UR COPI2 


; ROUTINE DE COMMUTATION DE PAGES ET COPIE DE BLOC 


‘ 


° 


COP1I2: 


LG2 


RESIDE EN RAM AUX48 


LD (DE) , À 

LD {BC) , A 

EXX 

LOIR 

LD (BKAUX) ,; A 

LD (WRAUX) , À 

RET 

EQU $-BLF / LONGUEUR DU CODE DE TRANSFERT 


+ DEPHASE 


LPROG  EOU S-DEB 


DETO EQU 5 
DETF EQ0 
«PHASE DETF 


READ: LD A, (0FEEFH) 
CP RAMDSK 
JP Nz, DFEC6H 
JP RD 

NRITE: LD À, {0FEEFH) 
CP RAMDSK 
JP NZ, OFECCH 
JP NR 

SELDSK: LD À, RADSK 
CP C 
JP N2,0FE97K 
LD (OFEEFH) , A 
LD &L, OFA534 
RET 

LGDET EQU $-DETF 


+ BLOC DE PARAMTRES DISQUES 


+ DEPHASE 
BLPAR: DW 20H 

DFB 3,7,0 

DN 384 

DW 2FH, OCOH, OCH, 3 
LGBL EQU $-BLPAR 

END 


: LONGUEUR DU PROGRAMME 


DETOUR ;ADRESSE D'°IMPLANTATION 


:NB DE BLOCS-] =59 





Dump hexadécimal de ‘RAMDISK.COM' 
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TRES HAUTE RESOLUTION SUR 
DMP M AGEWRITER Jean-Paul Payen 


ous êtes l'heureux Source ‘T.TABLE.1280’ 


possesseur d'une : 
imprimante matricielle Assembleur Big Mac 


parallèle DMP ou de 


l'imprimante série Ima eWriter 1 RRRRRRRRRR RÉ RH RRR hnh ht h 
de votre marque préférée. Alors 2 “ ji 
vous allez pouvoir tracer vos 3 * TABLE TRACANTE SUR D.M.P. 
courbes avec une résolution bien Fe 7 
supérieure aux 280x 192 points de s Re Du é 
l'écran que vous avez l'habitude 5 * x 
de recopier avec votre programme  ? 5 6 
de hardcopy habituel. Fe. 
En effet, c'est 1280 points par . nn: AGDE : 
ligne horizontale, et autant de 
ë de L (Big Mac) x : 
points que vous voudrez en ,, , É Ce source, sur la disquette 
verticale (la seule limite étant la GES d'accompagnement, est sauvegardé 
taille de la feuille de papier et en format TEXT pour permettre 
; : 14 * J.P.PAYEN le 26/02/86 * diti 
aussi celle de la mémoire de votre , , 8 26/02/86 °° Fédition avec un autre assembleur 
ARE 11) que vous pourrez 16 Rhihhhéhhhhhhhthhhhhhhhhhhhhhihk 
obtenir avec ce programme 
17 
TABLE.1280, écrit en 
- : 18 
assembleur pour avoir un temps ,, 
d'éxécution convenable. à 
21 
' ] 22 DMP - $06 ?$80 si DMP, $00 si IMAGEWRITER 
Mode d'emploi . :$80 si DMP, $00 si 
23 * POKE 6,128 ov POKE 6,0 
+. 24 
I1 suffit de faire : 25 INDEX = $07 : Index ds le TABLEAU (0 à FF) 
RUN DEMO, TABLE .1280. 26  NBSAUT = $08 : nbre de retour chariot 


Ce petit programme de démons- 27 * POXE 8, NSAUT4 
tration charge TABLE.1280 et 28 


vous demande la hauteur de 29 NBK = $09 ; nbre total de pages) 
papier que vous voulez utiliser, ‘2 * POKE 5,NBK# 
ainsi que la densité du point 

32 NBKCOUR = $IE ; Val, courante de NBK 


La hauteur est a priori 


quelconque, mais on aura , 
éventuellement des problèmes de 34 YCOURANT = $18 ; Val.Y pour comparaisons (18.19) 
taille mémoire si on demande 
trop. 15 à 20 cm assurent une " es = PAS EDS EPS 
rte Less er Lie = 38 TABADR = SFD : Adr, page courante TABLEAU 

, 39  TOADR = $EO : Adr. page 0 de TABLEAU 


La densité correspond au nombre 40 * $SE2,E3,E4,E5 contiennent pages 1,2,3,4 
total de points que vous voudrez ,, , a Lie hre Je Da eee) 

tracer. Plus elle est grande, plus ,, 
la courbe est belle, mais plus 3  aprx 


: E - $EB ;: Adresse de X#{K) 
aussi le temps d'exécution est  ,4  apry =  $SED + Adresse de Ya (KR) 
long. Il n'y a pas de valeur 45 xx = $F9 ; Adr. courante de X4 
idéale, cela dépend de la forme de 46  KY = SFB ;Adr. courante de ÿ# 
la courbe. Faire un premier essai 47 
avec ‘l' ou ‘2’ permet d'avoir 48  TABLEAUO = 59000 ; Octets graph. à lire 
une idée de la courbe obtenue sur 49 
l'écran haute-résolution. Au-delà 50 
les variables prendront la place 51 CHRGET = $B1 
mémoire de la page graphique et 52 PTRGET =  SDFE3 


la courbe ne sera visible que sur 53 
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l'imprimante, ce qui d'ailleurs est 
le but de l'opération. Avec une 
densité de ‘4’ on remplit 
complétement la mémoire de 
l'Apple II (Il faudra alors 


supprimer le LOMEM de la ligne 
25 qui protège la page 
graphique). 


Quand le tracé est fini taper 
<RETURN> puis suivant votre 
imprimante tapez | (magewriter) 
ou D (MP) quand le programme 
le demande : il faudra auparavant 
avoir alimenté en papier 
l'imprimante, en tenant compte 
du fait qu'elle le déroule à 
l'envers. Ceci pour avoir la 
courbe dans un sens tel que l'on 
pourra ajouter du texte par-dessus 
si on le désire. 

Le programme de démonstration 
va calculer les points 
représentatifs de la fonction Y 
(X) , à l'intérieur d'une fenête 
décrite par les variables 
XN,XM,YN,YM (lignes 100- 
160). Il est de la responsabilité du 
programmeur de modifier cette 
partie du programme ‘qui a été 
volontairement choisie très 
simple. Il est d'ailleurs possible 
de choisir une fenêtre et une 
hauteur d'impression telles que 
l'on puisse utiliser du papier 
millimétré avec une bonne 
correspondance entre l'échelle de 
la courbe et celle du papier. 
L'auteur en a fait l'expérience. 


Ligne 300-480, le programme 
calcule le nombre de retours 
chariots de l'imprimante 
(NSAUT® ), les échelles compte 
tenu de la fenêtre, le nombre total 
de points (KM) et le nombre de 
pages mémoire correspondantes 
(NBK%). KM est un multiple de 
256 pour simplifier l'analyse du 
programme machine. 


Ligne 500-590 : calcul des points 
des axes horizontaux et verticaux. 
Cette partie peut etre développée 
si l'on veut faire figurer les petits 
traits d'unité sur les axes. On 
veillera alors à utiliser un nombie 
de points muläple de 256 et d'en 
tenir compte dans le calcul de 
NBK%. 


Ligne 600-670 : calcul des points 
de la courbe à tracer. Chaque 
point est représenté par un couple 


96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
l14 
1125 
116 
117 
118 


SLOT = 
DEVICE 
PIC = 
COUT = 


ORG 


1 “Pour la DMP uniquement 
S$C080+16*SLOT Pour la DMP (carte PIC) 
S$COC1+256*SLOT :Idem 


SFDED ‘Sortie standard (IMAGEWRITER) 
$8E30 # CALL 36400 

CHRGET : Récupère adresse 

PTRGET ; de X#(0) 

ADRX 

ADRX+1 

CHRGET 

PTRGET ;: Y#(0}) 

ADRY 

ADRY+1 


#>TABLEAUO ; $90 (à modifier 
implantation de TABLEAUDC) 


TOADR+1 

TOADR +2 ; $91 

TOADR+3 ; $92 

TOADR+4 ? $93 

TOADR+S : 994 

#<TABLEAUO ; $O0 

TOADR ; $9000 ds E0.E1 
TABADR 

#0 

SAUTCT : init. cpteur de sauts à 0 
YCOURANT 


YCOURANT+I ; mise à O0 de YCOURANT 


* Envoi des caractères de controle à l'imprimante * 


LDA 
JSR 
LDA 
JSR 


OUT 5 ==>» {ESC+P) 


* Mise en caractères proportionnels 1280 pts par ligne 


LDA 
JSR 
LDA 
JSR 


#$1B 
OUT 
gr" 


OUT # ==> 1B 172 (ESC tr} 


* Saut de ligne arrière 


#$00 

OUT ; -> 00 

#$0D 

OUT ; —> position à la marge gauche 
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119 
120 
121 
122 
123 
124 
125 
126 
127 
128 


#$1B 
OUT 
£"'T" 
OUT 
#$31 
OUT 
#$36 
OUT 3 => 1B 54 31 36 


129 * Esc T 49 54 = Esc T 48+1 48+6 


130 * 
131 
132 
133 
134 
135 
136 
137 


138 * Esc > : 


139 


-> 16/144 = 1/9 pouce pour L.F. 


LDA #$1B 

UJSR OUT 

LDA #$3E 

JSR OUT # > 1B 3E 
unidirectionnelle 


140 RRARARRARRRRRRRRRRRRRRRÉRRRRRRÉRRRRÉRRÉRRRÉRÉRRÉÉRÉÉRÉRÉ 


141 
142 
143 
144 


145 * Mise à 0 de 


146 

147 MISEZERO 
148 

149 

150 

151 

152 ENCORE 
153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 RELMONTI 
169 

170 

171 FORBITO? 
172 

173 CH1 
174 

175 

176 

177 

178 

179 

180 

181 

182 

183 
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LDA 


BNE 


LSR 


$9000 --> $94FF 


#0 
TOADR+1 
TABADR+1 
#0 
#5 
{(TABADR) , Y 
s Y=0 ? 
ENCORE ; non 
TABADR+1 


ENCORE 


TOADR+1 


TABADR+1 ; réinitialise TABADR 


##10000000 
MASK 
CHI 


MISEZERO 


MASK 

ESCG1280 

NBK 

NBKCOUR ; initial. multiple de 256 pts 
#0 # 256 pts à conpter 

ADRX ; Réinitial. KX et KY 
0.1 

ADRX+1 

KX+1 

ADRY 

KY 

ADRY+1 


XX(K),Y%(K). Il est tout à fait 
possible de tracer ensemble 
plusieurs fonctions, la seule 
limite étant toujours la taille de la 
mémoire pour stocker tous ces 
points. Le travail essentiel de 
TABLE.1280 consistera donc à 
traduire la position de ces points 
en octets à envoyer à 
l'imprimante. 

Le programme de démonstration 
passe ensuite par une 
visualisation de la courbe. Cette 
partie étant facultative. 

Il se termine par l'appel de 
TABLE.1280 : ïil passe 
NSAUT% et NBK% comme 
paramètres, ainsi que l'adresse de 
début des tableaux X%(K) et 
YX(K). 


Fonctionnement de 
TABLE.1280 


Écrit avec l'assembleur Big Mac, 
ce programme commence par 
récupérer l'adresse des tableaux 
X%(K) et Y(K). Il initialise 
ensuite un certain nombre de 
pointeurs, notamment l'adresse 
de l'espace mémoire appelé 
TABLEAUDO qui sert à stocker 
temporairement 1280 octets à 
envoyer à chaque passe de la tête 
de l'imprimante. Cette partie est 
la seule se référant à une adresse 
absolue, le reste du programme 
étant totalement relogeable (pas 
de JSR ni de JMP). Donc, si l'on 
veut changer la place en mémoire 
de TABLE.1280 et du 
TABLEAUD sans réassembler le 
source, il suffira de changer les 
valeurs $90 et $00 utilisées au 
début, pour les remplacer par 
l'adresse de son choix. 

Le programme envoie ensuite les 
codes de contrôle à l'imprimante : 
(ESC-P) pour la mettre en mode 
proportionnel (1280 points par 
TA (ESC-r) pour le 
défilement arrière du papier, 
(ESC-T 49 54) règle l'interligne à 
1/9 pouce, et enfin (ESC->} pour 
une impression unidirectionnelle, 
sinon les axes verticaux seraient 
mal tracés. Îl devrait être possible 
en modifiant ces caractères de 
contrôle d'utiliser d'autres 
imprimantes. 

Suit la partie de recherche et 
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d'impression qui sera expliquée 
plus en détail et le programme se 
teninine en remettant l'imprimante 
dans son état habituel. 


Recherche et 
impression 


Le Kième point, calculé par le 
programme Basic est donc défini 
par ses coordonnées X%(K), 
Y%(K) dans le plan de la feuille 
de papier. 


Prenons par exemple les 8 
premières lignes en bas de la 
feuille. YCOURANT est mis à O 
pour commencer. Le programme 
va chercher s'il existe une ou 
plusieurs valeurs Y%(K) égales à 
YCOURANT. Quand il en trouve 
une, il va lire X%(K) et va ranger 
1000 0000 à l'adresse 
TABLEAUD + X%. 


Ï1 passe alors à YCOURANT - 
1 ; recommence le même travail 
et rangera alors 0100 0000. Etc. 
jusqu'à la 8ème ligne. S'il se 
trouve 2 valeurs différentes de 
Y% pour le même X%, par 
exemple Y = Set Y = 3 pour X = 
149, en faisant un ORA, on 
trouvera à l'adresse 
TABLEAUO+149, 0001 0100. 


Le programme prévient alors 
l'imprimante qu'il va lui envoyer 
1280 positions de points (ESC G 
49 50 56 48), et elle imprime les 
8 * 1280 points correspondant 
aux 1280 octets ainsi définis. On 
regarde si la recherche est 
terminée (comparaison avec 
NSAUT®%) et on recommence le 
travail si ce n'est pas le cas, en 
remettant au préalable à O tout 
l'espace mémoire réservé pour 
TABLEAUC. 


Ce programme fonctionne avec 
l'interface parallèle PIC d'Apple 
ou avec une interface série 
branchée sur ImageWriter, les 
codes de contrôle des deux 
imprimantes étant les mêmes. 


G 


184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 


195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 


221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
233 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 


CHERCHE 


KSUIV ANT 


11 


I2 


F3 


14 


RELMONT2 


ESCGi280 


BNE 


KY+1 


#0 
(KY),Y 
YCOURANT 

KSUIVANT 


(KY),Y 
YCOURANT+1 
KSUIVANT 


#0 
(KX),Y 


TOADR+1,Y 
TABADR+1 
#1 

(KX),Y 


(TABADR),Y 
MASK 
(TABADR) , Y 


KX 
T1 


CHERCHE 
NBKCOUR 
CHERCHE 


YCOURANT+1 
FORBITO7 
YCOURANT 
FORBITO7 


RELMONTI1 


#$1B 
OUT 
$"G" 
OUT 
#$31 
OUT 
#$32 
OUT 
#538 
OUT 
#530 
OUT 


. 


î 


4 


€ 


F 


; lit 1er octet de Y#(K) 


s'il est différent on saute 


lit 2e octet de Y#(K) 


s'il est différent on saute 


il est idem 
lit ler octet de X#(K) -> nfPpage 


Charge ni page 
mis ds adr., courante 


lit 2e octet de X#{(K) 


met le bit ds TABLEAU 


dernier K ? 


So se Ne 


+ 


non 
dernier NBK ? 


ligne suivante 





16 


Pom's n° 24 


249 * 1B 47 31 32 


250 
251 * Esc G 
252 * 
253 
254 
255 
256 
257 
258 
259 
260 


48+1 
1280 


LDA 
STA 
LDA 
STA 


38 30 


48+2 48+8 48+0 


: 1280 positions de points 
#>TABLE AUO 
TABADR+1 ;: réinit. TABADR 


#<TABLE AUO 
TABADR 


261 * Lecture des 1280 octets de TABLEAUO 


262 

263 

264 

265 

266 STAINDEX 
267 

268 IMPRIME 
269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 


LDA 


280 * Impression 


281 
282 
283 
284 
285 
286 
287 
288 
289 NOLF 
290 


LDA 
JSR 
BIT 
BPL 
LDA 
JSR 
EQU 


291 * CTRL-M:5s 


292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 


BNE 


304 * FIN remise 


305 

306 FIN 
307 

308 

309 

310 

311 

312 #* Esc À 
313 


#0 
; Initialise INDEX 


INDEX 

(TABADR),Y ; lit TABLEAU 

OUT ; 8 pts imprimés 

INDEX ; INDEX <= $FF 

IMPRIME ; oui, äu suivant 

TABADR +1 ; non à la page suivante 
TABADR+]1 


#>TABLEAUO+$S500 ; dernier ? 
IMPRIME ; non 


des 1280 pts terminée 


NOLF ‘Pas LF si IMAGENWRITER 


aut de ligne 


SAUTCT 

SAUTCT 

NBSAUT +: dernière ligne ? 
FIN ; Oui 

RELMONT2 ; non --> Mise à zéro 


en état normal de l'imprimante 


#0 

#$18 

OUT 

1541 

OUT ; > 1B 41 


: interligne de 1/6 





Récapitulation 


moniteur, 


par 
BSAVE 


8E30- 
8E38- 
8E 40- 
8E48- 
8E50- 
8E58- 
8E60- 
8E68- 
8E70- 
8E78- 


‘TABLE.1280' 


Après avoir saisi ce code sous 
vous le sauvegarderez 


TABLE .1280,A$8E30,L$18F 


20 
84 
85 
E8 
E4 
85 
84 
DO 
8F 
20 


B1 
EC 
ED 
86 
E8 
FD 


00 20 E3 
20 Bi 00 
84 EE A2 
E2 E8 86 
86 E5 A9 
A9 00 84 
A9 1B 20 
AF 8F A9 
F2 20 AF 
8F A9 OD 


DF 
20 
90 
E3 
00 
lA 
AF 
1B 


85 EB 
E3 2F 
86 El 
E8 86 
85 E0 
84 18 
8F A9 
20 AF 


8F A9 00 
20 AF 68F 
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8E80- A9 1B 20 AF 8F A9 D4 20 314 IDA #$0D 
8E88- AF 6F A9 31 20 AF 68F A9 315 JSR OUT ; -> OD marge gauche 
8E90- 36 20 AF 8F A9 1B 20 AF 316 LDA #$1B 
8E98- 6F A9 3E 20 AF 8F A9 00 317 JSR OUT 
8EA0- A6 El 86 FE A0 00 A2 05 318 LDA #$3C 
8EA8- 91 FD C8 DO FBE6 FE CA 319 JSR OUT ; —> 1B 3C 
8EB0- DO F6 A5 E1 85 FE A9 80 320 
8EB8- 85 18 DO 06 DO EO 46 18 321 * Esc < : impression bidirectionnelle 
8EC0- F0 63 A6 09 86 1E A2 00 322 
8EC8- AS EB 65 F9 A5 EC 85 FA 0 LDA #50 
DR D 324 JSR OUT ; -> OA : saut de ligne LF 
8ED8- A0 00 Bi FB C5 16 DO IC ae ba peus 
8EE0- C8 B1 FB C5 19 DO 15 AO 
8EE8- 00 B1 F9 A8 B9 El 00 85 12e LERS OUE 
8EF0- FE A0 01 B1 F9 A8 B1 FD 327 LDA #$66 
8EF8- 05 1B 91 FD E6 F9 DO 02 328 JSR OUT ; --> 1B 66 (ESC f) 
8F00- E6 FA E6 F9 DO 02 E6 FA 329 
8F08- E6 FB D0 02 E6 FC E6 FB 330 * Saut de ligne avant 
8F10- DO 02 E6 FC CA DO C1 C6 331 
8F18- 1E DO BD E6 19 DO 9F E6 332 LDA #$1B 
8F20- 18 DO 9B DO 97 A9 18 20 333 JSR OUT 
8F28- AF 8F A9 C7 20 AF 68F A9 334 LDA #$4E 
LM nude, ei 335 JSR OUT # --> 1B 4E (ESC N) 
8F38- 8F A9 38 20 AF 6F A9 30 336 
8F40- 20 AF 8F A9 90 85 FE A9 Sr Cor sCt ES BIC 
8F48- 00 85 FD A9 00 85 O7 A4 328 
8F50- 07 B1 FD 20 AF 6F E6 07 335 
8F58- DO F5 E6 FE A5 FE C9 95 
8F60- DO ED A9 OD 20 AF 8F 24 740 AS sein 
8F68- 06 10 05 A9 OA 20 AF 6F 341 
8F70- E6 1A A5 LA C5 08 FO 02 342 * Envoie vers l'imprimante 
8F78- DO A9 AO 00 A9 1B 20 AF SE 
8F80- 8F A9 41 20 AF 8F A9 OD 344 
8F688- 20 AF 8F A9 1B 20 AF &F 345 OUT BIT DMP ;Identifie l'imprimante 
8F90- A9 3C 20 AF 8F A9 OA 20 346 BMI DMPOUT 
8F98- AF 68F A9 1B 20 AF 8F A9 347 JMP COUT : IMAGEWRITER 
8FAO- 66 20 AF 8F A9 1B 20 AF 348 DMPOUT  STA DEVICE : DMP 
8FA8- 6F A9 4E 20 AF 68F 60 24 349 ATTENTE LDA PIC 
8FB0O- 06 30 03 4C ED FD 8D 90 350 BMI ATTENTE 
8FB8- CO AD C1 C1 30 FB 60 351 RTS 
Programme UE 
‘DEMO.TABLE.1280*  ::0 rem -----_ 
200 REM CHOIX INITIAUX 
10 REM DEMO. TABLE. 2 205 IREM === 
15 REM 210 HOME 
DE IREM IS Se ne men I nee © 215 INPUT "HAUTEUR EN CM (DE 10 À 30) “:H 
20 HIMEM: 36400 220 PRINT 
25 LOMEM: 16385 235 PRINT 
30 D$ = CHRS (4) 240 INPUT "DENSITE DU TRACE ( 1 ÀA 2) ";F# 
35 GOSUB 2000: REM EXPLICATIONS 250 PRINT :AX = 0 
40 PRINT DS"BLOAD TABLE.1280" 260 INPUT "TRACE DES AXES (O/N) ? ";AS: IF 
50 REM A$ = “O* THEN AX = 1 
60 REM 270 PRINT : HTAB 6: INVERSE : PRINT "ENVIRO 
TOMTRÉMR = RE Sr N ";3 * F%;" MINUTES D'ATTENTE": NORMAL 
80 REM FONCTION & FENETRE À 
90 REM DEFINIR PAR L'UTILISATEUR 280 PRINT "ATTENDRE LES 2 BIP POUR PRESSER 
100 CREM ===2==--- 2-2 "RETURN '* 
110 REM 285 REM 
120 DEF EN FIX) + l' EXB ( = .2# X) * SUN GREMMEE EE SES 
COS (X) 300 REM CALCUL DE LA PLACE A RESERVER DANS 
125 PI = 3.14159 LA MEMOIRE 
130 XN = O: REM X mini TION REM === 
140 XM = 5 * PI: REM X maxi 320 REM 
150 YN = O0: REM ÿ mini 330 IF (XN > 0) OR (XM < 0) OR (AX = 0) THE 
160 YM = 1.6: REM Y ruxi N PV# = O0: GOTO 360: REM PAS D'AXE VERT 
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340 


350 
360 


370 


380 
390 


400 


410 
420 
430 
440 
450 


480 
490 
495 
500 
505 
510 
S15 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
275 
580 
585 
590 
595 
600 
605 
610 


615 
620 
630 
640 
645 


650 
660 
670 
745 
750 
755 
760 
765 
770 
780 
790 
800 
810 
830 


ICAL À TRACER 
PV$ = 1 + H / 8.8: REM NBRE PAGES AXE V 
ERTICAL 

REM 
NSAUTS = H / 0.275: REM NBRE SAUTS TETE 

IMPRIM. 
EY = 8 * NSAUTS / (YM - YN): REM 
LE EN Y 

REM 

IF (YN > O}J OR (YM < O0) OR (AX = O0) THE 
N PH$ = O0: GOTO 420: REM PAS D'AXE HORI 
ZONTAL À TRACER 
PH$ = F$: REM NBRE PAGES POUR AXE HORIZ 
ONTAL 

REM 
EX = 1280 / (XM - XN)J: REM ECHELLE EN X 
NBK$ = PV$ + PH$& + 5 * F$& 

REM NBRE DE PAGES MEM À RESERVER 
KM = 256 * NBK$: REM NBRE TOTAL DE POIN 
TS 

DIM X8(KM),Y% (KM) 

REM 

REM CALCUL DE L'AXE VERTICAL 

REM 

IF PV$ = O0 THEN JY = 
X0$ = - XN *EX + 0.5 
FOR JY = 1 TO 256 * PV$# 
X#(JY - 1) = X0% 
Y$(JY - 1) = JY 

NEXT JY 
UY = JY = 2 
REM 

REM CALCUL 
REM 

IF PH$ = 0 
YO$ = - ÿyN 
FOR JX = 1 
XS(JX + JY) = 
Y$(JX + JY) 
NEXT JX 
JX + JY 


ECHEL 


= 1: GOTO 555 


AXE HORIZONTAL 
THEN KN = JY + l: GOTO 610 
f EY + 0.5 

TO 256 * F$ 

5 * UX / F$ 

yo$ 


REM 
REM CALCUL DE LA COURBE 

REM 

S = {XM - XN) / 1280 / F$: REM PAS DE C 
ALCUL 

X=XN-S 

FOR K = KN TO KM - 1 

X=X+S5S 

Y = FN Y{X) 

IF Y < YN OR Y > YM THEN 670: REM PTS 
HORS FENETRE 
XS(K) = (X - XN) * 
YS(K) = (Y - YN) * 
NEXT Kb REM 


REM 
HGR 
POKE 49234,0 

HCOLOR= 3 

FOR K = 0 TO KM - 1 

X = X$#(K) / 4.6 

Y = 191 - Y$(K) / NSAUTS * 23.68 


IF Y < O THEN 840 
HPLOT X,Y 


840 
850 
860 
870 
900 
910 
920 
930 


940 


950 


960 


970 

980 

990 

1000 
1005 
1010 
1020 
1025 
1030 
1035 


1040 
1045 
1050 
1060 
1070 
1080 
1085 
1090 


1095 
1100 


1101 
1102 
1103 
1104 


1110 
1990 
1995 
2000 
2005 
2010 
2020 


2030 
2040 
2050 
2060 
2070 


2080 
2090 





NEXT K: REM 

PRINT CHRS$S (7): PRINT CHRS$S (7) 

INPUT A$ 

REM 

TEXT : HOME 

PRINT "CALCUL TERMINE”: PRINT : PRINT 
PRINT "POUR COMMENCER À IMPRIMER" 
PRINT : PRINT “(I) POUR L‘IMAGEWRITER”": 
PRINT : PRINT “(D) POUR LA DMP" 

PRINT : INVERSE : PRINT "ATTENTION, LE 


PAPIER DEFILE À L'ENVERS": NORMAL 
GET AS: IF A$ < > "I" AND A$ < > "ji" 


AND A$ < > "D" AND ÀA$ < > "d” GOTO 95 
0 

IF A$ = "D" OR A$ = “"d” THEN POKE 6,12 
8 

IF A$ = “I OR A$ = “i*“ THEN POKE 6,0 
PRINT :A = PEEK (49232) 
REM 

REM IMPRESSION 

REM === 


POKE 8,NSAUTS 

POKE 9,NBK% 

IF A$ = D” OR AS = "d" GOTO 1040 
PRINT D$"PR#1": PRINT CHRS {9)"Z" 

REM Ajouter: PRINT CHRS (27};: CHRS ( 
68); CHRS (128); CHRS (0) si vous n'av 
ez aucun saut de ligne. 


CALL 36400,X#(0),Y#%(0) 

PRINT 

PRINT D$"PR#0” 

TEXT 

HOME 

PRINT "POUR OBTENIR LA MEME FONCTION” 

PRINT 

PRINT "JAPER ";: INVERSE : PRINT * RUN 
“2: NORMAL 

PRINT 

PRINT : PRINT : PRINT “POUR MODIFIER L 

À FENETRE” 

PRINT "OU LA FONCTION:" 

PRINT 

PRINT ” CHANGER LES LIGNES" 

PRINT “120 À 160 SELON VOS DESIRS": PR 

INT 

END 

REM 

REM, I=====--=---- 

REM EXPLICATIONS 

REM ==---------- 

HOME 

PRINT “CECI EST UN PRGM DE DEMONSTRATI 

ON" 


PRINT : PRINT "ON POURRA OBTENIR DAVAN 
TAGE DE POINTS" 

PRINT “EN SUPPRIMANT LA REPRESENTATION 
PRINT 
PRINT 
PRINT 
PRINT 
RETURN 


"GRAPHIQUE SUR L'ECRAN” 


“IL FAUDRA ALORS SUPPRIMER AUSSI 


"LE ‘'LOMEM' DE LA LIGNE 25° 
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AO 
TAN 


ou ne plus perdre 


Voici un petit programme destiné 
à faciliter l'écriture de 
programmes Basic. En fait, il 
s'agit de deux fichiers TEXT 
écrits avec AppleWriter. 


Avant d'écrire un programme 
Applesoft, 1l faut faire 


RUN START L/S 


ou taper au clavier les 2 POKEs 
qui transformeront les 
commandes LOAD et SAVE en 
#OAD et #AVE. Ceci afin d'éviter 
des erreurs. 

Ensuite, pour charger ou 
sauvegarder un programme, il 











Programme “START L/S' 


10 REM START L/S 
15 REM NEFONCTIONNE PAS SI LE DOS EST SUR LA CARTE LANGA 
Œ 

20 TEXT : HOME 

30 POKE 43144,35: REM LOAD DEVIENT #OAD 

40 POKE 43148,35: REM SAVE DEVIENT #AVE 

50 PRINT " LOAD ET SAVE SONT INVALIDES" 

60 PRINT “ UTILISEZ EXEC LOAD ET EXEC SAVE" 








Fichier EXEC ‘LOAD' 


NB : Les « symbolisent des espaces. 1l y a un retour chariot à la fin de ce fichier. 


TEXT:HOME:VTAB 4:POKE 768,0 
POKE 118,0:POKE 43699, 0:INPUT "eosvoovosescsecscscccesesee 


suffit : °..090%%0evveeLOAD-:+";NPS$:AS-NPS:POKE 43699,1 

* pour charger un programme ER=1:PRINT CHR$S(4) "VERIFY"AS:ER=0:POKE 768,137 

deiare: * IF NOT ER THEN FOR I=1 TO LEN(AS):IF MIDS(A$,I,1)<>"." TH 
; EN NEXT 

EXEC LOAD 


On donne le nom du programme 
et il se charge en mémorisant son 


IF 1=1 OR I1>36 THEN ER=1 
IF NOT ER THEN NV=VAL(MIDS(AS,I+1)):IF NV<0O OR NV>99 THEN 
ER=1 


nom en $300... avec un numéro IF NOT ER THEN A$=LEFTS (A$,I-1):PRINT “PROGRAMME: "AS" - 

de version. VERSION: "NV:A$=A$+".":IF NV<10 THEN A$=A$+"0" 

° pour sauvegarder, un : IF NOT ER THEN A$=AS$S+STRS (NV) : LN=LEN (AS) :POKE 810, LN:POKE 
811,NV:FOR I=1 TO LN:POKE 768+1,ASC(MIDS (A$S,1,1)):N 

EXEC SAVE 


lira automatiquement le nom du 
programme en machine, ainsi que 
son numéro de version, qui sera 
incrémenté ; puis, la commande 
SAVE est exécutée. Si aucun nom 
n'est en mémoire, il faudra 
l'entrer au clavier. 

Ceci devrait éviter les 
‘écrasements involontaires’. 


NDLR : Nous avons remanié les 
deux fichiers EXEC pour les 
rendre un peu plus fiables. A 
noter que c'est un moyen 
gourmand en place sur la 
disquette, et qu'il faut de temps en 
temps nettoyer la disquette. 


EXT:PRINT CHR$(4)" #OAD ";NP$ 
IF ER THEN PRINT "ERREUR - CHARGEMENT IMPOSSIBLE" 


Fichier EXEC ‘SAVE’ 


NB : Les + symbolisent des espaces. Il y a un retour chariot à la fin de ce fichier. 


TEXT:HOME:VTAB 4:ER=0 

MN=0:IF PEEK(768)<>137 THEN MN=1:POKE 118,0:POKE 43699,0: 
INPUT "osssssossessesesssesesesesecccsscececccceeSAVE: 
e";NPS$:POKE 43699, 1 

IF MN THEN ER=1:LN=LEN(NP$) : FOR I=1 TO LN:IF MIDS$S(NP$S,I,1 
)<>"." THEN NEXT:IF LN<=36 AND LN>0 THEN ER=0 

IF MN AND NOT ER THEN NP$=NP$+".00":LN=LN+3:POKE 810,LN:P 
OKE 811,0:FOR I=1 TO LN:POKE 768+I,ASC(MIDS$S(NPS,I, 1) 
) :NEXT:POKE 768, 137 

IF NOT MN THEN PRINT “SAUVEGARDE AUTOMATIQUE" :NP$="":LN=P 
EEK(810):FOR I=1 TO LN:NP$S=NPS+CHRS (PEEK(768+I) ) :NEX 
T:NP$=LEFTS (NPS$, LN-2) :NV=PEEK(811)+1:1F NV>99 THEN E 


Pourquoi ne pas faire un fichier R=1 
EXEC qui efface toutes les IF NOT MN AND NOT ER THEN POKE 811, NV:IF NV<=-9 THEN NP$S=N 
versions dont le numéro est P$+"0" 


inférieur à un certain rang ? 


G 


IF NOT MN THEN NP$=NPS+STRS (NV) 

IF ER THEN PRINT "ERREUR - SAUVEGARDE IMPOSSIBLE" 

IF NOT ER THEN PRINT "PROGRAMME: "LEFTS (NP$S,LEN(NPS$)-3)" 
- VERSION: 


"NV:PRINT CHRS$S(4)" #AVE ";:NPS$ 
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Vos er 


ette présentaton du 

langage PostScript est 

une forme de réponse 

aux lecteurs qui s'inter- 
rogaient sur le programme 
générant certains titres de Pom's. 
Les indications données ici seront 
directement utilisables par ceux 
qui ont la disposition d'une 
Laser Writer. En revanche, le 
Macintosh n'est pas indis- 
pensable, un Apple // (ou tout 
autre ordinateur doté d'une 
interface Série) et un traitement de 
texte conviendront, c'est 
d'ailleurs la configuration retenue 
par Pom's. L'heureux utilisateur 
de la Laser Writer lira avec intérêt 
“Macintosh Inside Laser Writer” 
la bible de PostScript en 450 


pages. 
PostScript 


Ce langage est intégré à la 
Laser Writer d'Apple et d'autres 
imprimantes à laser l'ont en 
option. Communément utilisé sur 
les machines de photocom- 
position (linotype par exemple), il 
tire sa souplesse et sa portabilité 
(chère aux Pascaliens...) du fait 
que les ordres ne sont pas 
réellement des commandes 
d'imprimantes mais plutôt une 
description de la page à imprimer. 
Le langage s'adapte aux 
caractéristiques de l'imprimante, 
adaptation que le programmeur 
peut contrôler (résolution 
horizontale et verticale, trame, 
couleur, saturation, dimensions, 
polices de caractères, niveaux de 
gris...). Il est bien entendu 
paiticulièrement orienté vers le 
graphisme mais trigonométrie, 
logarithmes, opérations logiques, 
traitements des chaînes ne lui font 
pas défaut près de 240 
opérateurs pour définir toute 
forme à imprimer. 


Sur le Macintosh, les ‘Drivers’ 
transforment les textes, formes et 
motifs créés par MacWrite, 


Calcul : 9690 millisecondes. 


MacDraw, etc. en des ordres 
PostScript, interprétés dans la 
Laser Writer qui les reçoit sous 
forme ASCII. 


Les piles 


Possesseurs de calculatrices HP 
et pratiquants du Forth sontici en 
pays de connaissance, PostScript 
est basé sur la gestion d'une pile 
ou plutôt de quatre piles : 


* pile dictionnaire qui est la 
liste des commandes connues du 
langage, liste complétée par 
l'utilisateur en fonction de ses 
besoins ; 


* pile opérateur qui peut 
contenir toutes les sortes d'objets 
PostScript sur lesquels on 
wavaille, On y met arguments et 
opérandes et on y récupère les 
résultats. Ces objets peuvent être 
des entiers (jusqu'à + 2 147 483 
647 de la base 2 à la base 36 !) 
des réels de 10:*8 à 10*8, des 
tableaux à une seule dimension 
mais 65535 éléments comptés à 
partir de O0, des chaînes, des 
dictionnaires, etc. ; 

+ pile d'exécution, inacces- 
sible à l'utilisateur, c'est la pile de 
travail de PostScript ; 

+ pile d'état graphique, 
également interne mais accessible 
à l'utilisateur qui peut préserver et 
restaurer des formes, polices, 
niveau de gris, épaisseur de trait 
en Cours. 


1 convient de préciser avant les 
deux exemples le fonctionnement 
de la pile et les possibilités de 
définitions. 


La pile 


La pile peut être considérée 
comme une série de cellules 
superposées dont seule la plus 
haute (et donc la plus récemment 
empilée) est accessible. 





Christian Piard 


Sommet de la pile 


Une addition telle que 17 + 6 + 5 
se présente ainsi. 17 6 5 add add 
la pile étant constituée à chaque 
étape comme suit : 


17 6 5 add add 


l6|ls|lu 


17 6 add 5 add est équivalent, le 
résultat se trouvant toujours dans 





la cellule la plus haute. 
L'opération (3*2)1(4-1) se 
programmerait ainsi : 2 3 mul 4 1 
sub exp ou 4 1 sub 2 3 mul exch 
exp ce qui est plus long mais 
permet de présenter exch 
opération d'échange les deux 
premières valeurs de la pile. 


Rechercher le nombre d'éléments 
d'un tableau revient à faire {56 78 
34] length et on recupère 3 au 
sommet de la pile. Même principe 
pour une chaîne dont on veut 
connaître le nombre de 
caractères : {Pom's) length laisse 
5 (le nombre de caractères) dans 
la pile. 


Le résultat peut occuper plus 
d'une cellule : dans la police de 
caractères courante, quelles 
seraient les hauteurs et largeur du 
mot Pom's ? {Pom's) stringwidth 
donne dans la cellule la plus haute 
la hauteur et dans la suivante la 
largeur. 
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Définitions 


PostScript permet de compléter le 
dictionnaire en associant des 
valeurs ou des procédures à des 
noms, possibilité exploitée dans 
les exemples. 


/nombre 45 def 

Aabl [15 25 89] def 

unnom (Pons) def 

Si, dans la suite du programme 
on invoque nombre, tabl ou un 
nom, on empilera le nombre 45, 
le tableau de 3 éléments, la chaîne 
de 5 caractères ou tout autre objet 
prédéfini. Ceci était la première 
façon de définir un nom du 
dictionnaire, 


Voici Ja seconde : 

/op (dup}) def 

/moyenne {add 2 div} def 

#uiss2 {dup mul} def 

op, du fait des accolades dans la 
définition est maintenant associé à 
l'opération dup qui duplique le 
premier élément de la pile : 

56 78 12 op donne dans la pile 56 
78 12 12. 

34 12 moyenne laissera 23 dans la 
pile : 


34 12 moyenne 





moyenne qui se décompose 
ainsi : 





idem pour puiss2 qui élève au 
carré par duplication suivie d'une 
mulwplication. 


Programme TITRE 


Le premier exemple consiste en la 
réalisation du titre de cet article 


qui est irréalisable sans la 
commande directe de la 
Laser Writer, aucun programme 
pour Macintosh n'étant encore 
capable de générer ce genre de 
fantaisie. 


Des caractères Times (la police 
utilisée pour le texte de cet article) 
de hauteur et d'inclinaison 
variable formeront le mot 
‘Postscript’ centré sur une page. 
Deux partie dans ce petit 
programme : des défmitions puis 
une boucle d'impression. 


Le premier ordre usertime (ligne 
1) consiste à empiler la valeur en 
cours du compteur de 
l'imprimante, compteur 
incrémenté mille fois chaque 
seconde, ceci pour connaitre le 
temps nécessaire au calcul. 

Police (2) est associé à l'opération 
de recherche dans le dictionnaire 
de la police Times-Roman et 
chaine (3) au mot ‘Postscript’. 
Matrice (4), un tableau de six 
nombres sera empilé pour passer 
à makefont les arguments 
nécessaires à la modification de la 
police standard Times-Roman. 


Dans ce tableau, nous trouvons 
successivement exprimés en 
points : 


- la largeur de base dela police 
de caractères (bien sûr chaque 
caractère n'a pas pour autant une 
chasse fixe), cette largeur 
pouvant être négative, ce qui 
conduit à écrire de droite à 
gauche ; 


* un nombre qui affecte 
l'horizontalité du texte (tangente 
de l'angle entre ligne d'écriture et 
horizontale) ; 


* tangente de l'angle des 
caractères avec la verticale : 


+ _ hauteur de base de la police qui 
peut aussi être négative pour 
obtenir des lettres tête en bas ; 


+ puis les vecteurs x et y 
s'additionnant à la position 
théorique d'écriture. 


Carac (5) est associé à la création 
d'une chaîne d'un caractère qui 
servira de tampon d'impression 
puisqu'on éctira lettre par lettre. 

Numcarac (6) est défini comme 





valant 0 et gardera le numéro de 
la lettre en cours d'impression. 
Demitong (7) qui est le nombre de 
caractères divisé par deux 
permettra de répartir la hauteur et 
l'inclinaison équitablement. 


Premier travail, mesurer la chaîne 
pour pouvoir la centrer : on 
recherche la police voulue (8), on 
empile le tableau qui donne une 
largeur de 40 et une hauteur de 
départ de 75, makefont se charge 
de modifier la matrice de 
paramètres standard (en fait une 
copie...), et setfont enf m installe 
la police nouvelle. La police est 
là, il ne reste qu'à empiler le mot 
‘Postscript (9) et à en mesurer la 
largeur. 


L'ordre moveto (10) (équivalent 
de HTAB, VTAB sur l'Apple //) 
nécessite deux arguments, x et y. 
La page ayant 792 points sur 
612, la ligne se charge de centrer 
le titre. 


Suit alors (lignes 11 à 22) la 
boucle d'impression style FOR 1 
= 1 TO LEN (A$) : PRINT MID$ 
(A$.I,1); : NEXT, exprimé ici de 
la façon suivante : 

O 1 L fprocédure} for. 

0 est la valeur de départ, 1 
l'incrément, L le nombre de 
caractères -1. 


Procédure sera l'ensemble des 
ordres de recherche du caractère à 
imprimer, de modification de 
taille/inclinaison et d'impression. 


Notons ici qu'arbitrairement les 
caractères auront une inclinaison 
variant de -20° à +20° et leur 
hauteur variera en suivant une 
parabole. 

Numcarac (14) est incrémenté 
pour suivre le numéro de la lettre 
en COUIS. 


Ligne 15, l'élément 2 de la 
matrice nécessaire à makefont, 
élément qui représente 
l'inclinaison, est défini ainsi : 
tangente (numéro de caractère - 
demilong * 5) * hauteur. Notons 
que PostScript étant dépourvu de 
l'ordre TAN, il faut utiliser 
SIN/COS. 











Elément 2 d'e la matrice 
= tangente de l'angle 


angle 


Inclinaison des caractères 


L'ordre put installe la nouvelle 
inclinaison dans la matrice en 
élément 2 (2 a été empilé 
quelques instructions plus tôt). 
Même travail (16) sur la hauteur 
du caractère défmie comme suit : 
(numéro de la lettre - 
demi-longueur) au carré * 2,5 + 
35, 35 étant la hauteur minimale. 
Les paramètres sont maintenant à 
jour, on installe la police (17). 
Dans la pile, il y a l'indice de 
boucle qu'on a dupliqué plus 
haut, on empile chaîne et l'ordre 
get extrait le it" caractère (18). 
On met ce caractère dans 
l'élément 0 de la chaîne tampon 
carac (19). 

Il ne reste plus qu'à imprimer 
(20) cette lettre par l'ordre show. 
Ici on a utilisé l'ordre ashow qui 
nécessite deux paramètres : les 
valeurs x et y qui sont ajoutées à 
la position courante avant 
impression. Dans le cas présent, 
on demande que les caractères 
soient un peu plus serrés qu'en 
standard, sans modification 
verticale. Cet ordre permet lors 
des justifications totales de régler 
l'espace inter-lettre. 

La boucle for s'exécute ainsi 
jusqu'à la fm de chaine. 


Pour imprimer le temps de calcul, 
on opte pour la police Helvetica 
(23) en dimension 9 points, 
scalefontse chargeant de mettre à 
jour la matrice. 


Maintenant (26) on empile la 
valeur actuelle du compteur 
interne, juste au-dessus de celle 
empilée ligne 1, on échange les 
deux valeurs, on soustrait et dans 
la pile ïil reste le temps 
d'exécution, 


string crée une 





chaîne de caractères vide et cvs 
(convert to string) convertit le 
temps de calcul en une chaîne 
imprimable par show. 

Ultime étape, impression 
physique par showpage. 


Programme SIN 


Cet autre exemple a pour objet le 
dessin d'une courbe et 
l'impression d'un petit texte. 

La courbe défmie entre les lignes 
4 et 10 est de la forme x = sin (a) 
* œ et y = COS (x) avec « variant 
de 0 à 360° par pas de 2°. Untest 
(7) est effectué pour modifier la 
courbe selon que la valeur du 
sinus calculé : 

sinus .2 ge fsi oui} {si non} ifelse ce 
qui se traduit en Basic par /F 
SINUS >= .2 THEN si oui ELSE si 
non. 

Le lineto (8) nécessite deux 
arguments, position horizontale et 
verticale, pour dessiner un 
segment de droite reliant ce point 
à la position courante. 

La courbe est maintenant au point 
(11), on sauvegarde l'état 
graphique pour la garder en 
mémoire, on définit un gris clair 


(.95 setgray), on applique le grisé 
et on restitue l'état graphique 
antérieur. 

Pour laisser la place au futur 
pointillé, on dessine un trait en 
blanc (12) d'une largeur de 3 et 
de couleur 1 (blanc). stroke 
dessine ce trait. 

Par setdash, il est possible de 
réalisé toute sorte de pointillé, ici 
ce sera 20 points noirs, 2 blancs, 
2 noirs, 2 blancs. stroke réalise le 
tracé. 

Lignes 14 à 21 les chaînes de 
caractères seront imprimées dix 
fois, décalées, dans un gris de 
plus en plus foncé. Dans la 
définition des chaînes, \( et \) 
indique à PostScript que la 
parenthèse n'est pas un délimiteur 
de chaîne mais un caractère à 


imprimer. 


NOT PONT S 


s,MOdbOW » 


Comment transmettre Postscript à la LaserWriter ? 


La LaserWriter 


Elle doit être réglée sur 9600. 


L'Apple // 


Carte série configurée comme pour l'ImageWriter, 
le fichier sera chargé par un traitement de texte et imprimé 
avec. S'il s'agit d'AppieWriter, ne pas oublier de supprimer le 


paramètre de soulignement (ps). 


Le Macintosh 


La LaserWriter sera connectée exactement comme 
lImageWniter, son connecteur 25 broches relié à la sortie 
imprimante du Mac. Les traitements de texte commandant les 
imprimantes en mode graphique, le pus simple consiste à 
transmettre le PostScript (créé sous MacWrite, sauvegardé 
sous format texte seul) à l'aide du programme Basic suivant : 


fS=FILESS(1) 
OPEN"I", 1,f$ 


LPRINT INPUT$S(LOF(1),1) 


CLOSE 
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Programme ‘TITRE’ 


NB : les nwnéros de lignes ne font pas partie du programme, ils ne servent qu'aux remarques du texte. 


1 usertime 

2 /police /Times-Roman findfont def 

3 /chaine (Postscript} def 

4 /matrice {40 0 -4 90 0 0] def 

5 /carac 1 string def 

6 /numcarac 0 def 

7 /demilong chaine length 1 add 2 div def 

8 police matrice makefont setfont 

9 chaine stringwidth exch 

10 612 exch sub 2 div exch 792 exch sub 2 div moveto 
11 O0 1 chaine length 1 sub 
12 { 
13 dup 
14 /numcarac numcarac l add def 
15 /matrice matrice 2 numcarac demilong sub 5 mul dup sin 

exch cos div 75 mul put 

16 matrice 3 35 2.5 2 numcarac demilong sub exch exp mul add put def 
17 police matrice makefont setfont 
18 chaine exch get 
19 carac exch 0 exch put 
20 -2 O0 carac ashow 
21 } 
22 for 


23 /Helvetica findfont 9 scalefont setfont 
24 300 340 moveto 

25 (Calcul : ) show 

26 usertime exch sub 15 string cvs show 
27 (millisecondes.) show 
28 showpage 





Programme ‘SIN’ 


1 /chainel (X = \{(sin \{angle\}\) * angle) def 
/chaine2 (Y = cos \(angle\)] def 


3 350 370 moveto 

4 O0 2 360 

Scot 

6 dup dup dup 

7 sin dup .2 ge { 2.5 div .3 add } { 2 mul } ifelse mul 2 div 350 add 
8 exch cos 70 mul 300 add iineto 

Co 


10 for 

11 gsave .95 setgray fill grestore 

12 gsave 3 setlinewidth 1 setgray stroke grestore 

13 [20 2 2 2] O0 setdash 0 setlinewidth stroke 

14 /Helvetica-Bold findfont [20 4.2 0 25 0 0] makefont setfont 





15 1 -.1 0 

T6 0 

17 dup dup dup dup 

18 setgray 10 mul dup 130 add exch 285 add moveto chainel show 
19 setgray 10 mul dup 200 add exch 260 add moveto chaine2 show 
20 } 

21 EÉOr 

22 shorpage 
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Un utilitaire d'impression Pascal : [D [f Î IN) He: 


e programme a pour 
principal objet de de 
débiter les listes des 
programmes Pascal en 
tranches d'une page, plus 
commodes à manipuler que les 
accordéons continus. En prime, il 
indique en bas de chaque page la 
date, repechée dans le système, ce 
qui permet de repérer sans 
problème l'édition la plus récente 
d'une liste. Enf m, les Apple DMP 
et ImageWriter disposant des 
caractères français et anglais, il 
pennet de disposer des crochets et 
accolades en même temps que des 
caractères accentués. Ces 
caractères ayant les mêmes code 
ASCII, l'astuce consiste à 
considérer qu'un code de 125, par 
exemple, correspond à un ‘] s'il 
se trouve entre deux apostrophes, 
et à un crochet fermant dans le cas 
contraire. Il en résulte que, sur la 
liste, les codes correspondants 
seront tou jours interprétés de la 
même façon, suivant qu'ils se 
trouvent dans la partie programme 
proprement dite ou dans la partie 
texte. 
Quelques commentaires sur les 
différentes procédures : 


Datation 


Cette procedure va rechercher la 
date dans le système. L'adresse 
-18432 correspond au Pascal 1.2. 
Pour le Pascal 1.1, il faut 
remplacer cette adresse par 
-21992. 


Initialisation 


Cette procédure met en place un 
certain nombre de constantes qui 
seront utilisées dans le corps du 
programme. En particulier, elle 
initialise la chaîne de caractères 
"CROCHET” qui sera ensuite 
utilisée pour provoquer le 
changement de jeu de caractères 
lors de la reconnaissance des 
codes ASCII correspondants. Le 


Philippe Magnien 


Programme ‘PRINTER.TEXT" 


progräm PRINFER; 
const NBL = 58; { pour des pages de 12 pouces; mettre 52 pour 11 pouces } 


type date = packed record 


MOIS : 0..12; 

JOUR : 0..31; 

AN : 0..99 
end; 


SETOFCHAR = set of char; 
TurboPascal 
À la suite de la présentation du 


var FICHIER : text; 
AUJOURDHUI :date; 


ENTREE : boolean; , 
TAB, I, NUMERO : integer: TurboPascal (Pom's 23), 
CROCHET, TITRE : string, FRACIEL nous demande de 
LIGNE : string[160]: préciser son changement de 
raison sociale : 
FUNCTION GETCHAR(OKSET : SETOFCHAR) : CHAR; ‘BORLAND FRACIEL’ 


et sa nouvelle adresse : 
78, rue de Turbigo, 75003 Paris, 
tél (1)42 72 2519. 


VAR CH:CAAR; 
GOOD : BOOLEAN; 


BEGIN 
REPEAT 
READ(KEY BOARO, CH) ; 
IF EOLN(KEYBCARD) THEN CH:=CHR{13); 
GOOD:=CH IN OKSET; 
IF NOT GOOD THEN WRITE (CHR{7)) 
ELSE IF CH IN{' '..'è'} THEN WRITE (CH); 
UNTIL GOOD; 
GETCHAR: =CH 
END, 


PROCEDURE GETSTRING (MAXLEN : INTEGER; VAR CHAINE : STRING) ; 


VAR S : STRING; 
S1 : STRING{1}, 
OKSET :SETOFCHAR; 


BEGIN 


Ce 
OKSET := f° "..‘é'}; 
REPEAT 
IF LENGTH (5) = 0 
THEN S1[1} := GETCHAR ( OKSET +#+{ CHR({13)}) 
ELSE IF LENGTH(S) = MAXLEN 
THEN S1[1j := GETCHAR{{(CHR{13), CHR{8)]) 
ELSE S1{/1} := GETCHAR(OKSET+[CHR(13),CHR(8)]}; 
IF S1{1} IN OKSET THEN S := CONCAT'(S,S1) 
ELSE IF S1{1j =CHR(E) 
THEN BEGIN 
NRITE( CHR(8),' ',CHR(8)}; 
DELETE(S, LENGTH(S) ,1) 
ENO; 
UNTIL S1{1] = CHR{13); 
CHAINE :n S; 
END; 


{'va chercher la date dans le systeme. cf PEEKS ‘) 
{'et POKES en pascal de J. Pino, POM''S n°12 ci] 


procédure DATATION; 


type biface = record case boolean of 
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programme suppose, pour 
fonctionner correctement que le 
jeu de caractères sélectionné au 
moment où le programme est 
lancé est le jeu français. C'est 
toujours le cas en ce qui me 
concerne, les caractères français 
étant affichés sur les interrupteurs 
de l'imprimante. Dans le cas 
contraire, il convient de rajouter 
une ligne au programme 
principal : 

write(copy (CROCHET, 1,4},cop 
Y(CROCHET,6,4)); 

après l'initialisation de 
l'imprimante pour se ramener au 
cas prédédent. 


Traduire 


Cette procédure remplace dans la 
partie programme, les caractères 
‘é','$&',è',"' par la chaîne 
CROCHET, qui a pour effet de 
provoquer le passage aux 
caractères anglo-saxons avant 
l'envoi du caractère considéré, et 
le retour aux caractères français 


ensuite. 


Comment faire ? 


Pour lister un programme 
Pascal, vous devrez faire : 
X(ecute 
PRINTER 
puis vous devrez donner le 
nom du programme à lister 
éventuellement précédé de 
#4: OU #5. 
Le programme est conçu 
pour une imprimante réglée 
sur 72 lignes par page. 













Rendons à Gisèle... 


.… Perreault le mérite qui lui 
revient : dans Pom's 23, son 
nom avait été omis en tête de 
l'article ‘formateur de listing” 
au côté de Sylvie Gallert. 

Gisèle Perreault nous 
par donnera certainement. 


begin 


true : (ADRESSE:integer); 
false : (CONTENU: "date) 
end; 
vèr PEEKPOKET : biface; 
REIAIS : date, 
begin 


PEEKPORET.ADRESSE := -18342; 
AUJOURDHUI := PEEKPOKET.CONTENU"; 
end, 
procedure INITIALISATION:; 


var AUTRETITRE : string, 


begin 

writeln(chr(12}));:gotoxy (27, O)writelnl'tessesssssestesesessststtuna") 
gotoxy(27,1);:writeln("* #*); 
gotoxy(27,2};writeln{"* Utilitaire d''impresston *'}); 
gotoxy (27,3): writelin('* *eJ; 
gotoxy{27,4);writeln('####at##tt#A###a#t#eR4#ssrashhs] 

AUTRETITRE := ‘'; 

ENTREE := true; 

NUMERO := 0; 

LIGNE := "'; 


CROCHET := ! Z D '; (‘crée la séquence d'escape "EscZ60{car)EscD60" 


) 
J 


CROCHET{1} := chr{27); (‘Qui, par remplacement systématique dans les ‘ 
CROCHETI3] := chr({6); (‘lignes envoyées à l'imprimante permettra j 
CROCHET{4] := chr{0); ( d'obtenir les caracteres '} ( [ } ‘ dans la ‘} 
CROCHET{6] := chri27); (‘partie non texte du programme À} 

CROCHETI{8i := Chr(6); 

CROCHEY{9} :e chr(0); 

DATATION; 

writeln;:writeln('Nom du fichier à imprimer ? ‘}; 

getstring{40,TITRE); 

writeln; 

(*SI-*)] {'évite le plantage sur une erreur d'‘entrée sortie") 


reset {FICHIER, TITRE); 


if ioresuit <> 0 {'vérifie la présence du fichier sur la disquette’) 


then begin 
AUTRETITRE := concat (TITRE, '.TEXT'); (‘essaye en rajoutant ‘) 
reset (FICHIER, AUTRETITRE ); {" .TEXT ") 
1f ioresult <> Q 
then begin (‘retour case départ ‘} 
gotoxy (0, 6) :writelchr{11]}}; 
writeln('fichier non présent‘); 
ENTREE := false 
end 
end 
{ASI++) 
end; 
procedure TRADUIRE; (‘remplace les caracteres " é 6 * $ “ par la séquence ‘} 
{ d'escape, sauf dans les zones de texte 2] 
VAR I : integer; 
CAR :char; 
begin 
I :=1; 
“while I <= length{LIGNE) do 
begin 


if LIGNE[I} = chr(39) then repeat I := I+1 until (LIGNE{I] = chr(39)) 
or {I = length{LIGNE)); 
(* saute les 20nes de texte, sans dépasser la fin de la ligne ‘}) 


1£f ILIGNE{IJ in l'é','è,'"",'S"}]) then 
begin 
CROCRET{S] := LIGNE{I/; (" met le car approprié dans CROCHET ‘} 


LIGNE:= concat {copy {LIGNE, 1,1-1),CROCHET 
; Copy (LIGNE, I +1, length(LiGNE)-1}}; f'remplacement ‘} 
l:-1+8 
end, 
I ;= Ii 
end 
end; 


{ programme principal } 
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Vous n'avez ni 
DMP, ni 
ImageWriter ? 


Voici la signification des 
codes de contrôle utilisés par 
PRINTER pour commander 
l'imprimante. || vous suffit de 
les adapter à votre impri- 
mante dans la procédure 
‘TRADUIRE". 


Esc Z 60 

Jeu de caractères américains 
Esc D 60 

Jeu de caractères français 
Esc E 

Caractères ‘Elite’, 12 carac- 
tères par pouce 

Esc L010 

Marge gauche à 10 carac- 
tères 

CTRL N 

Caractères dilatés 

CTRL O 

Caractères non dilatés 

Esc X 


repest 
INITIALISATION; 
if not ENTREE 
then begin {'fichier non trouvé") 
writeln{('voulez-vous faire une autre tentative ?'}; 
ENTREE := GETCHAR(['O’','N','o'",'n'])} in ['n', 'N'j; 
if ENTREE then exit (prograèn} 
end 
until ENTREE, 
TAB := (80-2*length{TITRE)) div 2; { centrage du titre ) 


close (output);reset (output, 'printer:'}; 
write{chr{(27), 'E",chr(27), 'L010'}; {' sélectionne les caracteres 12 cpi 
{' (EscE} et une marge gauche de 10 car 
{'fEscLO10) , à modifier suivant gout 
{' et imprimante 
writein{' ":TAB,chr(14),chr (27), 'X",TITRE,chr{(27),'Y',chr{15)); 
for I := 1 to 3 do writeln; 
while not eof(FICHIER) do 
begin 
NUMERO := NUMERO+1; 
if NUMERO mod NBL = 0 
then begin ('impression de la date et di numéro en ‘} 
{'bas de chaque page) 
for I := 1 to 3 do writeln; 
with AUYOURDAUI do write{JOUR:3,MOIS:3," 
writein('page':30, (NUMERO div NBL ):3); 
page foutPut); 
writein(" ‘:TAB,chr{14},chr{22), '"X",TIYRE, chr(27),'Y",chr{15)); 
{'impression du titre en haut de chaque page'} 
{'Ctri-N passage en car dilatés, EscX débute le soulignement ‘) 
{'£scY le termine, Ctrl-0 revient aux caracteres normaux ‘) 
for I := 1 to 3 do writein; 
end; 
readin{FICAIER, LIGNE); {' 
TRADUIRE; (5 
write2n{LIGNE) f° 
end; { while } 4 
for I := l to {NBL - (NUMERO mod NBL) + 3) do writeln, (‘complete la ‘]} 
{'derniere page} 


19',AN); 


lecture d'‘une ligne ‘)j 
remplacement des car, 51 nécessaire "'} 
envoi à l'imprimante } 


Début de soulignement 
Esc Y 
Fin de soulignement 


cicse (output); reset (output, 'console:"'}); 
close (FICHIER, lock) 
end. 





Vous... Votre Apple... et Pom's 


Dans le prochain numéro de Pom's, nous publierons les 
résultats et enseignements du sondage paru dans le 
numéro de mars. Nous tenons dès aujourd'hui à 
remercier les centaines de lecteurs qui ont répondu à 
notre appel. Vos remarques nous permettent de mieux 
vous connaître et de mieux centrer votre revue. Voici la 
liste des heureux ‘tirés au sort : 

Jean-Marie PLACE à Noyelles-les-Vermelles, Jean 
GOUTELLE à Saint Étienne, Claudine BUG à Paris, 
Robert GINTZ à Strasbourg, Simon BOSMAN en 
Belgique, Bruno INVERARDI à Saint Louis, Edmond 
GRAND à Vendargues, Christophe PRENEL à Epinay sur 
Seine, Bertrand MERIC à Cadaujæ, Laurent FONTAINE 
au Mans, Stéphane DEHAN à Caudebec lès Elbeuf, 
Gérard CUVIER à Pfastatt, Nicolas LEPLEY à Fontaine la 
Malle, René MARTIN à Cognin et Patrick OLIVE à Paris. 
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with AUJOURDAUI do write (JOUR:3,MOIS:3, " 
writein("'page ‘ :30, (NUMERO div NBL + 1) :3j: 


19',AN); 


E.P.E.5.0 


Précisions. 


E.P.ES.0 est livré sur une 
disquette DOS 3.3 
(pensons à ceux qui n'ont 
pas de carte 16K 0). Pour 
utiliser E.P.E 5.0 sous 
ProDOS, il faut : formater 
une disquette ProDOS, 
puis copier sur celle-ci, à 
l'aide d'‘utilitaire système’ 
ou de ‘Convert’, les 
fichiers 
STARTUP, 
EPEONPRODOS, 
EPEPRODOSS.0, 
DOCEPEPRODOS et 
CLAVIERS.O.PRO. 

11 suffit alors de démarrer 
sur cette nouvelle 
disquette. 








L'heure sans carte : datheur 


ATHEUR permet de disposer 
de la date et de l'heure sans 
carte horloge et ainsi de 
pouvoir dater les fichiers avec 
précision. De plus, si vous disposez 
d'une carte souris, l'heure sera 
automatiquement incrémentée. 
La carte souris étant intégrée dans 
l'Apple //c, ce programme est donc 
particulièrement intéressant pour leurs 
propriétaires, d'autant que l'absence de 
"slots" empêche d'y insérer une carte 
horloge. 


+ si vous possédez une carte souris et 
si vous le désirez, les heures et les 
minutes seront affichées sur la 
première ligne de l'écran, que ce soit 
en affichage 40 colonnes ou 80 
colonnes. Le ":” séparant les heures 
et les minutes clignotera à chaque 
seconde; 

+ si votre Apple ne possède pas de 
caite souris, l'heure ne s'incrémentera 
pas automatiquement, mais vous 
pourrez modifier l'heure chaque fois 


que vous le désirerez en tapant. 


simplement la commande HEURE 
puis en réglant l'heure avec les 
flèches. 


Mode d'emploi 


Après -DATHEUR ou BRUN 
DATHEUR, la date et l'heure du 
système apparaissent ou, par défaut, 
celles de la dernière utilisation du 
programme. Les minutes sont en vidéo 
inverse. En utilisant les flèches Î ou | 
(ou les touches “>" et “<” pour un 
Apple }{+), vous allez respectivement 
les incrémenter ou les décrémenter. Si de 
même vous voulez modifier les heures, 
les jours, les mois ou les années, il 
suffira que vous utilisiez les flèches — 
et = pour déplacer l'affichage en inverse 
sur les minutes, les heures, les jours, 
les mois ou les années suivant ce que 
vous voulez changer. Pour valider la 
date et l'heure, appuyez sur la touche 
RETURN. L'heure et la date seront alors 
affichées sur la première ligne de l'écran. 
Le ”:" clignotant à chaque seconde 
indique que l'horloge fonctionne. 
L'heure sera ensuite affichée jusqu'à ce 
que vous supprimiez la protection de la 
première ligne (par exemple en faisant 
TEXT ou GR, ou encore en passant de 
l'affichage 40 colonnes à l'affichage 80). 
L'heure ne sera plus affichée mais 
l'horloge continuera à fonctionner. Pour 





l'afficher à nouveau, il suffira de tapez 
la commande HEURE, ce qui vous 
permettra éventuellement de régler à 
nouveau l'heure. 


L'heure affichée est assez précise et n'est 
pas affectée par le déroulement d'un 
programme, sauf si celui-ci utilise la 
souris. Cependant, les accès aux disques 
bloquent les interruptions et arrêtent 
donc momentanément le fonctionnement 
de l'horloge, ce qui peut provoquer un 
retard de quelques minutes sur une 
demi-journée. Enfin, si vous appuyez 
sur CTRL-Reset ,vous arrêtez l'horloge, 
Pour la faire repartir, tapez à nouveau 
HEURE, 


Si vous n'avez pas de carte souris, 
l'heure sera affichée comme expliqué 
ci-dessus, mais elle n'évoluera pas et le 
“:" ne clignotera pas. Si vous désirez 
que vos fichiers soient correctement 
datés, il vous suffira de mettre l'heure 
avant de les sauvegarder en utilisant la 
commande... HEURE. 


Enfin, si vous voulez récupérer la place 
occupée par le programme ou arrêter 
l'horloge, il suffit de tapez la commande 
LIBERE,. Celle-ci supprime toutes les 
commandes extérieures et récupère la 
place qu'elles occupaient. Vous ne 
pouvez plus utiliser ni la commande 
HEURE ni LIBERE, ni aucune des 
commandes que vous aviez installées, 
sauf en relançant l'exécution de 
DATHEUR ou d'un programme 
installant une commande extérieure, 
Note : les commandes extérieures 
n'existe pas en DOS 3.3, ce programme 
ne fonctionne donc qu'en ProDOS. 
Comme de plus le principal interêt de ce 
programme est de pouvoir dater ses 
fichiers et que cette possibilité n'existe 
pas en DOS 3.3, ceci n'est pas un 
handicap. Vous pouvez toutefois 
l'adapter en DOS 3.3 moyennant des 
modifications importantes de 
l'interpréteur de commandes. il faut 
noter, pour ceux qui souhaiteraient le 
faire, que les parties les plus complexes 
(celles concernant la souris) restent 
utilisables sans modification. 


La technique 


Le programme a été conçu de façon très 
modulaire et chacun des modules peut 
être réutilisé séparément dans un autre 
programme. 


Les différentes techniques utilisées 


Bruno Fénart 


sont : déplacement d'un programme en 
code machine, recherche de la carte 
souris et utilisation quelle que soit la 
machine ou le slot de connection, ajout 
d'une commande à l'interpréteur de 
BASIC.SYSTEM, utilisation des 
interruptions engendrées par le balayage 
vertical pour mesurer le temps sans 
empêcher le fonc#onnement d'une autre 
fonction, etc. 


Commandes extérieures 


+ L'ajout d'une commande à 
l'interpréteur de BASIC. SYSTEM a été 
abordée dans le Pom's 20. Rappelons 
toutefois que ces commandes sont 
utilisables aussi bien dans un 
programme Basic avec la même syntaxe 
que pour une commande ProDOS (à 
condition bien sûr que la commande soit 
installée), que directement au clavier. 
Note : DATHEUR possède son propre 
relogeur qui installe les deux 
commandes sous BASIC.SYSTEM sans 
détruire les variables Basic, et ceci 
même si un ou plusieurs fichiers sont 
ouverts. 


La souris 


+ Le deuxième point important 
concerne la souris. L'utilisaton de cette 
dernière est fort complexe mais est 
grandement facilitée par l'appel aux 
sous-programmes fournis dans la ROM 
de la carte souris. L'emplacement de ces 
sous-programmes est différent pour un 
Apple //e et un Apple //c, mais une 
table contenant leurs adresses a été 
disposée en début de ROM, permettant 
ainsi au programmeur de réaliser un 
programme fonctionnant sur les deux 
machines. C'est ce que permet le sous- 
programme SOURIS. 


+  DATHEUR utilise la souris d'une 
manière particulière, aussi ne 
détaillerons nous pas l'utilisation de la 
souris elle-même. Nous ne parlerons ici 
que des différents modes d'interruptions, 
interruptions génerées par la souris et 
qui permettent à l'horloge de fonctionner 
à une fréquence de 50 Hz. Sans trop 
entrer dans les détails, il faut savoir que 
pour que l'on puisse déterminer sa 
position, la souris génère des 
impulsions chaque fois qu'on la déplace. 
En plus de ces interruptions dues aux 
déplacements, deux autres sources 
d'interruptions existent ; celles 
provoquées par la pression du bouton, et 
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celles qui interviennent à chaque 
rafraîchissement de l'écran (VBL), ce 
qui se produit 60 fois par seconde (50 
fois pour l'Apple//c). Le programmeur 
peut choisir d'utiliser chacun de ces 
modes d'interruptions, soit ensemble, 
soit séparément. Pour DATHEUR, 
seule la fréquence de 60 Hz (ou 50 Hz 
suivant la machine) nous intéresse, nous 
a'utiliserons donc que les interruptions 
VBL. 


Remarque : sur les modèles américains 
de l'Apple //c le balayage se fait à une 
fréquence de 60Hz . C'est cette valeur 
qui est indiquée dans la documentation 


Apple, qui ne parle pas des modèles //c 
français pour lesquels la fréquence est de 
S0 Hz. Pour l'Apple /{c, la précision 
semble très bonne (de l'ordre de un pour 
mille). Pour l'Apple //e, elle est un peu 
inférieure (de l'ordre de cinq pour mille). 
Vous pouvez affiner le réglage de 
l'horloge en modifiant la ligne 110 
(octet S6007) pour l'Apple //c ou la 
ligge 113 (octet$600D) pour l'Apple //e 
où ]{+. 


Attcation : sur l'Apple //c le vecteur 
d'interruption pointant en $C803 
(NEWIRQ), il est toujours accessible (la 
zone entre $C100 et $SCFFF n'est pas 


commutable). Comme d'autre part 
ProDOS se charge d'initialiser les 
adresses $FFFE et $FFFF en carte 
langage et en mémoire auxiliaire, il n'y 
a aucun problème à utiliser un 
programme en mémoire auxiliaire avec 
l'Apple /{c. Il n'en va pas de même sur 
un Apple //e . En effet, le vecteur 
d'interruption pointant en $FA40 (RQ) 
n'est pas accessible d'un programme en 
mémoire auxiliaire. Par contre, et 
heureusement, ProDOS a pour son 
usage ‘personnel’ une routine de prise en 
charge d'interruption en carte langage. 


CG 





Source 


‘DATHEUR.SCE0’ 5 


Assembleur ProCODE 


55 RDKEY 
56 CROUT 


60 


£Qu $FD0C 
EQU $FD8E 


sAttend une touche chargée dans À 
‘Envoie un retour chariot 


Sous-programmes on paUe globale BASIC.SYSTEM (BI) 


62 GOSYSTEM EQU $8£70 ;Exécute une compande ProDOS 
0 ELLLLELELELEELLLLLERELLLLLLEELLLLEREELLLLEZ ZT) 63 BADCALZ EQU $BES8D Code erreur MLI --> code BI 
z * d 66 ERROUT EQU $B8£09 “Affiche l'erreur {code BI en A) 
2 #* DATHEOR V. 2.0 {C) Bruno Fénert 1985 * 65 
3 * F 66 GETBUFR EQU $BEFS ‘Réserve (A) pagels) sous le BI 
4 * Création: Juillet 1985 * 67 FREEBUFR EQU $BEF8 sLibére buffer obtenu par GETBUFR 
S + Modification: Décembre 1985 . $8 
6 * d 69 »* Variables en page globale BASIC.SYSTEM 
7 CLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLEZLZ] 70 * ne en 0 me ee me ee eme ee me ee mm ee mn _— 
4 71 
9 * Assembleur : ProCODE 72 EXTIRNOD EQ0 $A4E06 ; JM vers interpréteur extérieur 
10 73 XTRNADDR EQU $8£50 ‘Adresse d'une commande extérieure 
11 * L'exécution de DATHEUR permet d'ajouter 74 XLEN EQU $BE52 ‘Longueur-1 du nom de la commande 
12 * deux commandes supplémentairas À BASIC.SYSTEM : 75 XCNUN Æu $8E53 Numéro de la commande 
13 * 76 PBITS E£OU S$SBESS Paramètres optionnels autorisés 
14 * HEURE - Datation at mise à l'heure du système 77 VEATHI £GU $BE6C sVecteur vers la commande entrée 
15 * De plus, s'11 y a une carte souris, le temps est 78 XRETURN EQU $BESE :RTS$S connu en page ÿlobala du BI 
16 " mesuré grêce à de intarruptions de 50 où de 60 Hz 73 
17 * LISERE - dâcomecte toutes les commandes 80 SSGINFO EQU SBEB{4 {Paramètres de GŒT/SET L'ILE INFO 
18 * additionnelles, y compris HEURE at LIBERE 81 FIMDATE EQ0 S$BEGE ‘Date du dernier fichier utilisé 
19 
82 
20 ORG $6000 83 #* Variables et sous-programmes en page globale ProDOS 
21 
84 LL a ou ec ce me te cc ce ce de ce de de de be ec ce de ie ec ce cu ce de on ee ee 
221 # Variables en page 0 85 
23% — —— = 86 DATE EQU $2r50 ‘Pate Pro00S 
24 87 MACHID EQU S$BF98 :Identificeteur de Ja machine 
25 WNDTOP EQOU S22 “Haut de la fenêtre écran 88 IRQENT EQU $BFÉB ‘Vecteur entrée d'interruption 
26 LENGTH £QU $2F ‘Longueur de l'instruction 89 
27 PCL EQU $3A Adresse de la ligne désassemblée 90 SETINFO EQU $c3 Code de SET FILE INFO 
28 Ac EQU $45 Acc. aprés une interruptien 91 SETCOUNT EQU $0? Nombre de psramétre pour SETINFO 
29 ADR EQU $FE Vecteur d'indirection temporaire 92 
30 93 *  Comutateurs et indicateurs 
J1 * Constantes souris J4 V9, silicon csasiémmpots 
22 0 mm mme ,5 
22 96 RD8OVID EOg $colF ‘Indic. affichage 80 coionnes 
34 INITMOUSE EQU $19 sInitialisation de la souris 97 TATPAGI! £Q0 $C054 ‘Affichage page 1 et mémoire P 
35 SETMOUSE EQU S$S12 ‘Active is mode des interruptions 98 TXIPAGZ2 EQ90 $coss Accés mémoire X 31 RDS0STORE 
36 SERVEMDOSE EOU $13 ‘Origine dé l'interruption ? 99 POT DATHEUR.SCEI ‘inclut ie relogeur 
37 100 POT DATHEUR. SCE2 :{nclut les commandes 
38 * Variables non en page 0 
39 M0 semi 
” Source 
41 IRQLOC E£Q0 S3F& Vecteur de l'interruption IRC s 
42 LINE EQU 5400 ‘Adresse du début de i‘écran ‘DA THEUR S( E1 
43 LÉ 
44 * Sous-programmes du moniteur et de l'interpréteur Basic Q #* 1° partie: Relogeur 
ES ee 0 0 0 et me mme ten mme ep ee ne ee eee me me ee a i , vocpoesrepoesseseser 
sé è 
47 INSDSF2 E00 SF88c sDécode le ligne (PCL) si X=0 3 CELLELELLLLLLLLLELELLILLELLELELELLLLLELLILLLELLLLLLEZ ZX] 
48 OUT2O EOU SDB5C “Affiche le code ASCII de Acc. 4 vd 
49 LINPRT EQU $ED24 Affiche l'entier X,A (A = MSB) 5 #* installation de la commande personnalisée * 
50 NORMAL £0U $Fr273 Passage en mode norxal 6€ #* entre BASIC.SYSTEN (BI} et ses buffers * 
S1 INVERSE EQU $F277 Passage en mode invarse 7 * Recherche s'i11 ÿ a une carte souris, et si oui * 
52 Ur EQU S$FCIA sRemontée éventuelle du curseur 9 * détermine le numéro du slot où elle se trouve * 
S3 HOME £QU sEffacage de l'£cren g + puis lancs l'exécution de la commande HEURE * 
Le] * 


{Passage écran texte total 


Le 
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$ 
A 
3 
ù 
8 
EC 
£ 
£ 
> 
S 
£ 
S 
& 
3 
v 
ë 
È 
ù 
à 
s 
à 
ë 
& 
i 
È 
So 
> 
: 
ë 
è 
È 
S 
8 
S 
vw 
2 
h 
ca 
2 
+ 
SJ 
> 
PA 
1] 
3 
à 
% 
[S] 


11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
ed 
38 
39 
40 
41 
42 
43 
44 
45 
«6 
47 
48 
49 
sa 
si 
52 
53 
54 
55 
$6 
57 
se 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
26 
77 
78 
29 
80 
81 
82 
83 
84 
85 
86 
8? 
88 
89 
90 
91 
92 
93 
94 
95 
s6 
97 








CLELELELEL LEE LL ELLE TETE TITLE EEE ET EE TE TSI LI A1) 


$IIc 


$'Iplus 


Sgothen 


$noerr 


* Relogeur 


TROU SOU 
MACHID 
#25 
#52A 
$1lc 

#30 
MAXEZ 


#$00 
588 
SIIPlus 
CET 2 
APPIEID 


EXTRNCMD+2 
PRECMD+2 
EXTRNCMD +1 
PRECMD+1 


#>NBPAG 
GETBUFR 
#$0c 
S$gothem 
ERROOT 


EXTRNCMD+2 
ADR+1 

0 
EXTRNCMD+1 
ADR 
#DEBUT 
EPCL+1 
#<DEBUT 
PCL 

RELOGE 
CADA 
#SETCOOUNT 
SSGINFO 
#SSTINFO 
GOSYSTEN 
$noerr 
BADCALL 
ERROUT 


sRecherche le siot de la souris 
Test si la machine est un //e 
Si c'est un //c alors 50 Hz 


sinon 60 Hz 


“Si II ou 11+ 
sisole bit 7 et 3 de MACHID 


‘S£ fe ou /fe 


sPréserve la commande précédente 


;Réserve autnnt de pages qu'en 
‘occupe le programme à reloger 
Si pas d'erreur (A)= adr. buffer 
‘sinon (A) = code d'erreur BI 
Affiche "NO BUFFERS AVAILABLE" 


‘Installe la commande HEURE 
iinitialise adresse de transfert 


‘Adresse du programme à reloger 


sReloge le programme sous le BI 
sExécute la conmande HEURE 

sinon modffie les informations 
sdu fiehier DATHEUR pour pettre 
sla date de dernière utilisation 


“S'11 n'y a Pas d'erreur, 
‘Convertit le code MI en code BI 
sAffiche l'erreur et fin 


‘Pas d'erreur (sinon code dans A) 
‘This is the end »y friend 


* ReloQe le programme de son anclenne adresse = DEBUT 

* vers son implantation permanente sous le BI = (EXTRNCMD) 
* Les deux adresses doivent être des multipies de 256 

* Le nombre de pages transférées est égal à NBPAG 

* La sona des données est séparée par DFB 500 (= BRK) 

* Le programme prand en compte ia structure d'appel au MLi 


RELOGE  LOX 
Lor 


LDA 


$nonl1 
$ml1 


#0 

#SEE 

(PCL,X) 
$trans 
INSDSP2 
LENGTH 
#2 
$trans 
{ecL),Y 
658F 
$nonii 


(PCL),Y 
500 
$noa)1 


(PCL},Y 
65 

#$20 

S$ali 

#2 
(ECL),Y 


#>DEBUT 
$trans 
F>NBPAG 
Strans 


‘Indispensable pour INSDSP2 
‘Pour le transfert des données 
sL'instruction est égale À &RK 
;aiors début des données 
-Décode une instruction et 
sdétermine 5a longueur 


{Longueur < 3 : Opérande inchangé 
;L'instruction est-elle JSR $BF00 


;intruction sur 6 octets du MLI 
sIntruction sur trois octets 
‘Sinon poids fort de l'apérande 


‘comparé avec l'adresse de début 
s OPérande < adresse de début 


ou opérande > adresse de fin 


58 
93 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
124 
127 
128 
124 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 


$trens 


$boucle 


Sanocarry 


S$fin RTS 


Détexnine s°i11 Y a une carte souris et, 
* recherche le slot où elle est connectée. Le résultat est 


EXTRNCMD42 ;Sinon calcule l'octet de poids 


(PCL),Y ‘fort de l'adresse translatée 
#0 
sLongueur réelle 
(PCL, X) ‘Transfert un octet 
(ADR, X) svers sa nouvelle adresse 
PCL «Caicul des adresses suivantes 
ADR 
$nocarry 
PCL+l 
AOR+1 


#>DEBOT+NBPAG; Numéro de ia page finale + 1 


PCL+I Fin du progremse si on a 

$fin stransféré les NBPAG pages 
‘Transfert 1 à 3 octets suivant 

$trans Transfert en continue (données) 

$boucle ‘la longueur de l'instruction 

RE LOGE sinstruction suivante 


ei oui, 


* mis dans MOUSLOT, I1 vaut zéro s'11 n'y a pas de souris 


TROUSCU  LDA 


DEC 
DEX 
BMI 


Ssufvant 


LDY 


SRB 8868 828 


$nomouse 


Source 
‘DATHEUR.SCE2’ 


* 2° partie: Code relogeable permanent 


À 00 08 QE 08 20 QREE 00 20 Are 00 28 RE 08 1 UE 08 28 Me Ne 2 — T0 00 


OV œ Je un ® & Dh © 


Ds 


$6100-+ 


$sce ‘Détermination du slot souris 
ADR#1 

#$00 

ADR 

#7 sRecherche parmi les 7 slots 
ACRti sSict suivant 

$norouse ;Souris dans aucuns des slots 
505 ‘Signature d'un périphérique 
#538 

(ADR), Y 

Ssuivant  ;sinon, slot suivant 

#507 ; Idem 

518 

(ADR) ,Y 

Ssuivent 

#50 ‘Idem 

#$01 

{ADR} ,Y 

Sauivant 

#$soc ;Signature d'un joystick 
#520 sou équivalent (paddile, 
fADR},Y ssouris, etc.) 

Ssuivant ‘sinon, slot suivant 

4$EB ‘Signature de la souris 

45D6 

(ADR) ,Y 

Ssui vant ‘sinon, slot suivant 

ADRt+1 sPoids fort du slot souris 
AOUSLOT 

#0 :S'II n'y a pas de carte souris 
NOUS LOT “alors ÆMOSLOI = 0 


‘Le début doit être aligné 


RL LELELLEEL EEE EEE LEE EEE EPP EE LE PET ELLE ELIZI II 111) 


Interpréteur des commande s HEURE et LIBERE 
Si aucune des deux commendes n'est reconnue, 
retourne à l'adresse d'une éventuelle svtre ccmæande 


on 


5... 














II RRRRRROROORRAAOSOROMR OR NORIERORRARAAASAMÉATOSR 98 * commande HEURE, cf J.B. POQUELIN in Oeuvres complètes * 
2 ss ° ” 
13 DEBUT CLD sNon {ndi spensable aais prudence 100 PÉSSÉÉSÉÉÉÉSÉÉÉÉÉÉSÉÉÉÉÉÉÉÉÉÉÉ  É ÉÉÉÉÉÉÉÉÉSÉÉÉSÉÉSSÉÉÉÉÉÉÉS 
14 TDA VPATHI ‘Adresse-l de 1: comsande entrée 101 

15 STA ADR ‘aise dans un Pointeur temporaire 102 * Net à jour la date du système à l'aide des touches 

16 LDA VPATHISI 103 #* montante pour {ncrémenter, descendante bour décrementer, 
17 STA ADR+1 104 * <= gt -> pour passer aiternativement des Jours aux mois, 
18 LDX #$FFr ‘Initialise sur la liére commande 105 * ou aux années ou aux heures ou aux minutes. 

19 $cherche LDY 4#$00 ‘Pointe 1°” caractère de l'entrée 106 * Les mois sont affichés en abrévietlons de trofs lettres. 
29 Scompare INX ;Ceractère suivent 107 * La date sffiohée est celle du système où par défaut 

21 INY 108 * celle de 1a dernière utilisation du programme 

22 LDA ODLIST,X ;Charÿe uoce lettre de la commande 109 #* ou encore le 0i/JAN/86 00:00. 

23 BPL Strouvé ;Coæpareison complète 110 

24 AND #$?F Conversion ASCII positif 111 HEURE LDA É<DATE ‘Date du système 

25 C@  (ADR},Y iComParsison avec -'ent-6e 112 STA ADR 

26 BEC $compare ;Majuscules identiques: suivante 113 LDA F>DATE 

27 ECR #$20 ‘sinon cOBpare avec une minuscule 114 STA ADR#1 

28 CP (CADR),Y sRecoBparaison 115 JSR TÉSTIME Conversion et test de la date 
29 BEC $compare ;Minuscules fdentiques: suivante 116 BCC $datée /SÎ le système est déjà daté 

30 Seutre INX sRécherche un pPGinteur commande 107. LDA #<FIMDATE ;Date du fichier 

31 LDA CMDLIST,X 116 STA ADR 

32 OMI feutre ‘Un caractère d'une comrande ? 119 LDA PSFIMDATE 

33 BPL S$cherche ‘Va tester la commande suivante 120 STA ADFrI 

34 121 JSR TESTIME ;One more time 

35 S$trouvé BEQ $synerr sPointeur nul = commande inconnu 122 BCC Sdatée :$1 le fichier est déjà daté 

36 TAX ‘sinon 11 est mis comve indice 123 ZLDA #86 ;Date par défaut ! Janvier 86 

37 LOA  {ADR),Y ‘Lé caractère suivant l'entrée 124 STA AA 

38 CM  #$0D sdoit être un retour chariot 125 LDA #1 

39 BNE Ssynerr sinon erreur de syntaxe 126 STA MM 

40 ZLOA CMDVECT,X Charge l'adresse de la commande 127 LDA 1 

dl STA XTRNADDR 128 STA JJ 

42 LDA CMDVECT#1,X; Idem poids fort 129 LDA #0 ‘Heure par défaut 00h00 

43 STA XTRNADDR+] 130 STA HH 

44 DŒEY ;Méaorise la Jongueur - 1 131 STA NN 

45 STY XLEN 132 

46 LDA #$00 133 Sdstée LDX #0 ‘Initialise TAB à droite 

d7 STA XCNUN ;Nwæwéro d'une comæande extérieure 134 STX TAB 

48 STA PBITS+1 Aucun paramètres autorisés 135 Sboucla JSR AFFICHE ‘Boucle de mise de la date 

49 STA PBITS 136 JSR CLAVIER 

50 CLC ‘La commande a été trouvé 137 BCC S$boucle 

51 RTS 138 

S2 S$synerr SEC sE£Erreur de syntaxe 139 JSR ACTIVBL sActive les interruptions VBL 

S3 PRECND JMP 50000 ‘$aut à la commande précédente 140 JSR NORMAL ‘Annuie un inverse éventuel 

54 141 JSR TEXT sEffsce totalement l'écran 

ss »* Vecteurs d'indirection vers les commandes 142 JSR HOME set positionne en haut à gauche 
Sé * een 183 LDA 65 ;Déconnecte inverse pour AFFICHE 
s7 164 STA TAB 

58 ODVECT HU * sVecteurs des commendes 145 JSR AFFICHE “Affichage définitif 

59 CMS JUMP LIGERE iles JMP sont indispensables 146 LDA #i sProtége la première ligne 

60 CMDH JM HEURE ;Pour permettre le reloZement 147 STA NWOTOP 

éi 148 LOA #$FF sAutorise l'affichage de l'heure 
62 149 STA AFFLAG 

ERARELEEEEPEEEE EEE EPP EPP EEE PP PE PE EEE EPP PE EE PET EEE EEE) 150 JSR SAUVHEUR ;SauveGarde heure et date système 
64 * * 151 CLC Pas d'erreur {sinon code dans À) 
65 * Canaende LIBERE . 152 RTS ‘This is the end »2y friend 

66 * Supprime toutes les commandes installées par * 153 

67 * l'utilisateur, libéra tous les buffers et désactive, * 154 

68 * s'il y a lieu, les interruptions de la souris * 155 #* Conversion et test de la date 

69 * * 156 * mmememmnmmmemesmsss 

20 ÉÉÉÉÉSÉSÉÉÉÉSÉÉÉÉSÉESÉÉSÉÉSÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉ SSSR ÉS 157 

71 158 #* Conversion de la date sur 4 octets pointés par (ADR) 

72 LIBERE  LOA f>XRETURN ;Renvoie le pointeur de comsande 159 #* Test de validité puis mémorisation dans MN,HH,JJ, 184, AA 
73 STA EXTRNCMD+2 sextéeure sur un RTS connu 169 

74 LDA  #<XRETURN 161 TESTIME LDY #35 

75 STA EXTRNCMD+1 182 LDA (ADRj,Y sHeure 

76 163 CP #24 

7? LDA MOGSLOT Souris ? 164 BCC S$hok 

78 BEQ S$noirq ;Pas touche à mon IRQ 165 LDA, #0 {Si heure fausse, mise à 0 

79 SEI 166 S$hok STA NH 

80 LDA #0 {Désactive la souris 167 

81 LDY #SETMUOSE 168 DEY 

82 JSR SOURIS 169 LDA  (ADR),Y ;Minute 

83 LOA É>IRQENT sRevectorise le vecteur IRQ 170 oæ 660 

84 STA IROLOC+#1 171 BC Sanok 

es LDA #<IRÇENT 172 LDA #0 {51 minute fausse, mise à 0 

86 STA IROLOC 173 Sanok STA MN 

87 CLI 174 

8e 175 DEY ;Année 

89 S$noirqg JMP FREEBUFR ‘Libère tous les buffers et fin 176 LODA  (ADR),Y 

90 177 CP 46200 Non daté si année > 100 

si 178 BCS Snodate 

92 CLLEEELER ELLE EE EEE ELLE LEE Er ELLELESELLEEES EEE ELELLEEEE) 179 LSR 

s3 * ° 180 STA AA 

94 ” Commande HEURE * 181 

95 » datation et mise à l'heure du système , 182 DEY ‘Mois L 

96 ” , 185 LDA (ADR),Y 

97 æ Pour ceux qui veulent connaître le statut de la * 184 TAX 


ER 
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ROR 272 BPL f$nongau 
LSR 273 LDY, #4 ‘Retour à gauche 
LSR 274 S$nongau STY TAB 
LSR 275 BPL Sretour 
LSR 276 
BEQ Snodate :Non daté si le mofs est < 0 277 Sincréme INC DATAB,X sIncrémente suivent valeur de TAB 
CMP #13 s où > 12 278 LOA MAX,X Compare evec le maximum 
BCS Snodate 279 CHF DATAB,X 
STA MM 280 BŒ Sretour 
281 LDA MIN,X ‘Revient au minimum 
TXA sJour 282 STA DATAB,X 
AND #$1F 283 DEX sIncrémente en chaine 
BEQ $nodate :Non daté si le jour est = 0 284 BPL Sincrême ssuCcessivement MN,HH,JJ, MM, AA 
STA JJ 285 BMI $retour 
CLC 286 
RTS 287 S$aécréme LDA NIN,X {Compare avec le minimum 
288 CÆ DMATAB,X 
S$nodate SEC 289 DEC DATAB,X ‘Décrémente suivant valeur de TAB 
RTS 290 BC Sretour 
291 LDA MAX,X sRevient au maximum 
292 STA DATAB,X 
* Conversion inverse de la date 293 DEX sDécrémente en claïne 
,* és SE 294 BPL $décréme ;successivement MN,HH,JJ,MN, AA 
295 BMI S$retour 
* Conversion de la date JJ,MN,AA et de l'heure HH,MN * 296 
*“ puis sauvegarde dans las adresses système et fichier * 297 
298 * Affichage de la date 
SAUVHEUR LOA HH 299 # mm _—— 
STA DATE+3 300 
STA FIMDATE+3 301 * Affiche le jour, le mois (en 3 lettres), l'année 
LDA M 302 #* et l'heure suivant les valeur de JJ,MN, AA,HH,MN. 
STA DATE+2 303 
STA FINRDATE+2 304 AFFICHE JSR CROUT ‘Bord gauche de la fenêtre que 
LDA M4 305 JSR UP ;l'on soit en 40 ou 80 colonnes 
ASL 306 
ASL 307 LOY #4 
ASL 308 S$Sboucle TTYA {Sauvegarde Y 
ASL 309 PHA 
ASL 310 JSR NORMAL ; Passage en mode vidéo normal 
ORA JJ 311 
STA DATE 312 LDA ESPACE,Y ;Affiche caractère d'espacement 
STA FIMDATE 313 JSR OUTDO 
LDA AA 314 
ROL 315 CPY TAB Affichage en inverse suivant TAB 
STA DATE*1 316 BNE f$normal 
STA FIMDATE#1 317 JSR INVERSE 
RTS 318 
319 Snoræmsi LDX ORDRE, Y :Successivement JJ,MM, AA, HH,MN 
320 ZOA LATAS,X 
* Gestion du clavier 321 CPX 61 Si ce n'est mois c'est donc ... 
? mm mmmmmmmmm——— 322 BEQ Saffnois 
323 
incréments et décrements suivant les flèches 324 TAX 
* Retour avec le carry mis en ces de retour chariot 325 CPX #10 ; Si strictement inférieur à 10, 
326 BCS f$fdizaine 
CLAVIER JSR RDREY 327 DA "0" saffiche un zéro en plus 
LDY TAG 326 JSR OUIDO 
LDX ORDRE, Y 329 Sdizaine LOA #00 rAtfiche X (car A=0) 
CAP 4595 ‘Flèche --> 330 JSR LINPRT sc-d-d successivement JJ, AA, HN ,MN 
BEQ Sdroite 331 
CMP #50 ‘Idem 80 colonnes (sauf //c) 332 $resto PLA ;Restaure Y 
BEQ Soroite 333 TAr 
CMP 9588 ‘Flèche <— 334 DEY 
BEQ Sgauche 335 BPL S$boucle 
CMP SEA ‘Flèche descendante 334 RTS 
BEQ S$décréme 337 
CMP #$ec ‘Signe “<" (II+) 338 $affmois ASL MN x 3 
BEQ Sdécréne 339 ADC MA 
CP 458B ;Flèche montante 340 TAX 
8EC Sincréme 341 LDY 93 Boucle sur les trois lettres 
CO Y$BE ‘Signe ">* (II+) 342 Sietrois LDA NMOIS-3,X 
BEO Sincréme 343 JSR OUTDO sAffiche un des 3 caractères 
ce #$sD 344 IAX 
BNE Sretour 345 DEY 
se 346 BNE Sietrois 
RATS 347 8Æ Srasto iSuite 
$fretour CLC 348 
RATS 349 
350 + Activation des interruptions 
SGauche ŒY 04 ;Tabulation vers la gauche 353 % pt oneetrenemnenere 
INX 352 
B8CC S$nondroi 353 #* Active la souris afin d'autoriser les interruptions VBL 
LDY #0 ;Retour à droite 354 #* donc une fréquence de branchement vers IROSOHZ de 50Hz 
$nondroi STY TAB 355 
; BEL $retour 356 ACTIV&SL LOA MOUSLOT ‘Teste 3'i1 y à une souris 
357 BEG Snoirq sinon pas d'interruption 
$droite DEY +Tabulation vers la droite 358 SEI 
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359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
398 
389 
390 
391 
392 
393 
398 
395 
398 
397 
398 
399 
400 
401 
402 
403 
404 
«05 
406 
407 
408 
409 
410 
411 
412 
413 
4lé 
415 
416 
417 
418 
415 
420 
421 
422 
425 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
452 
443 
444 
441 


$noirq 


LDA $vectirqg+1 ;Revectorisa l'interruption IRQ 
STA JIROLOC 
LDA Svectirqg+#2 
STA  IROLOC+I1 
LDY 4#INITMOUSE ;Initialise la souris 
JSR SOURIS 
LDA #8 sActive la souris et autorise 
LDY #SETMOUSE ;les interruptions VBL 
JSR SOURIS 
CLI 
RTS 
Svectirq JMP IROSOHZ ‘Adresse de l'interruption (rel) 


cette table 


Sous-programmes souris 








Appelle un sous-programme souris pointé par Y dans la 
table de 1a carte souris (contrairement aux programmes 
ast À ia même piace pour un //c et un //e) 


SOURIS PHA sPréservea un éventuel paramètre 
LDX #0 “ADR <— adrassa da la souris 
STX ADR s{et non son numéro de téléphone) 
LDX NMOUSICOT ‘$Cn dans X avec n = siot souris 
STX ADR+i 
LOA  (ADR}),Y ‘Poids faible du sous-DroGramme 
STA ADR ‘dans le vecteur d'indirection 
TXA “Duplique $Cn dans À 
ASL 
ASL 
ASL 
ASL 
TAY :$n0 dans Y 
PLA sRécupère À 
JM (ADR) <Prograame souris correspondant 
LLLLLELLLELLLLELLLLLLLLELELELLESLLLLLLELELLERSELERELELLELZSZS ZX) 
. 
*  IROSCHZ : Gestion des interruptions dues au balayage 
* vertical de l'écran toutes les 20 millisecondes (50H2) 


Maintient le système à l'heure et l'afficha sur la 
prenière ligne de l'écran si celle-ci est protégée 


PÉSÉSIPRLSDDSÉPLSISILLITÉÉSLLÉLLÉSSLLLILLIISIPISIIIIIPIIIÉ 


IRQOSOHZ SEI 


$notre 


ADR 

SAVE 

ADR+1 
SAVE+1 

ACC 

SAVA 

SAVX 

SAVY 

LDA #0 
#SETMOUSE 
SOURIS 
#SERVEMOUSE Origine de l'interruption 
SOURIS 
$fnotre 
SAVE 

ADR 
SAVE‘+1 

ADR+1 


iPréserve ADR, Acc, X, Y 


;Mode inactif 


$C'est à nous 
:Sinon. 


;C'est psaz à nous 
NNDTOP :La liére ligne est protégée 
"1 

Sokflag 

0 Sinon plus d'affichage 
AFFLAG 


$Sokfiag DEC Hz 


$seconde 


BEQ $seconde ;25 interzuptions (1/2 s.) ? 
JMP Sfinirq ; (Branchement trop long) 

LDA MAXHE ‘init. compteur d'interruptions 
STA H£ 

LDA AFFLAG ‘Test le drapeau d'affichage 
BEQ S$noclign ;si = O pas de ":" clignotant 
LDX #$50D sPosition du “:" en 40 coionnes 
BIT APPLEID ;II 6 Il+ ou //e & //c ? 

BPL Sclign40 

BIT RD8OVID sAffichage 80 colonnes ? 


récupère ADR, Acc, X, Ÿ 


$clignéO LDA 


S$noclign DEC 


Srontre 


$incréne 


$cadran 


$double 


$£inirq 


S$cliign40 
#S06 
#$IA 
LINE1,X 
LINE1,X 
sc 


$S£inizq 


4120 

sc 
DATE+2 
DATE+2 
#60 
Stontre 
#0 
DATE+2 
DATE+3 
DATE+J 
frgn 
#24 
$wontre 
0 
DATE+3 
#“3" 


AFFLAG 


$finirg 
MAXIRO#] 
#15 


AEPLEID 
ScCadran 
RD80VID 
Scadran 


Scadran 
TXTPAGEZ2 


LINEI,X 


;Position du ":* en 680 colonnes 
Fait clignoter le ":" 


#60 secondes ? 
; Compteur des 1/2 secondes 


sIncrémente les minutes (système) 


jIncrémente les heures (système) 


;Maximum des unités des heures | 





{Maximum modifié si HH = 23 heures 
sAffichege autorisé ? 

; Sinon interruption terminée 
‘Ménorise 1e msximum des heures 
Pointe sur l'unité des minutes 
:II 6 Ils ou //a & //c ? 
‘Affichage 80 colonnes ? 

‘Divise par 2 et test de parité 
‘Si impaire => mémoire principele 
isinon => mépoire principale 


iincrémente un chiffre suivant X 


MAXIRO-11,Y;Maxiaur dépassé ? 


LINE1,X 
Sfinirq 
"0" 

LINEI,X 


#13 
S$double 
TXTPAGE! 
#10 
$incrêéne 
TAXTPAGE! 
#8 
FSETMOUSE 
SOURIS 
SAVE 

ADR 
SAVE#I 
ADR+I 


ssinon fin 
“si oui reoise à z6ro 


set pointe le chiffre suivant 


1: ? 


‘Pointe sur 
‘81 oui pointe le chiffre suivant 
‘Remet la wémoire principale 


;Incrémente en chaîne 


sInterrtion VBL 


‘Récupère ADR, Acc, X, Y 


CORLLLLELL EL LL SLA ELLES LLELLLEZ TELL LEZ EE ELLEET EEE EEE EE, ET T] 


° Zone des Varlables et constantes des divers modules #* 


* 


CELLLLLLILLILILLLILLLILLELLILIILLLELELEL EE LIELE LL LLLELLLLLLE! 


DFB 


© 


{ Séparateur 


e Constantes de l'interpréteur de commandes 


* Les caractères sont en ASCII négatif 
* Les pointeurs sont toujours inférieur à $80 


CMDLIST EQU 


, Variables 


°LIBÈRE" 


CMDS=CMDVECT +liPointeur et séparateur 


"HEURE" 


CMDH-CMDVECT+ l'Idem 


(Q 


iSéparateur final 


du module HEURE 
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534 DATAB EQU * 555 
535 AA Ds 1 ‘Année 556 ? Variables et constantes du module d'interruption 
536 mn Ds 1 ;Mois ST ——— 
537 JJ DS 1 Jour 558 
538 HH Ds 1 sHeure 559 SAVE Ds 2 ;Sauvegarde des adresses $FE, $FF 
539 MN DS 1 -Minvte 560 SAVA Ds 1 sde» Accumulateur 
540 TAB DS 1 sTabulation 561 SAYX Ds 1 ‘Idem X 
S41 NMOUSLOT OS 1 Slot souris ou sinon = @ 562 SAVY DS 1 ‘Idem Y 
542 563 
543 ? Constantes alphanumériques du sodule HEURE 564 AFFLAG Ds 1 «DrePeau indicateur d'affichage 
SE mm 505 APPLEID DS 1 cIdentificateur. $FP si //e & /fc 
545 566 MAXHZ Ds 1 «Fréquence: 60 Hz sauf //e : 50 Hz 
Sd6 MOIS ASC “JANFEVMAR" 567 HZ DF8 30 :ÇCospteur d'intermptions 
547 ASC  °AVRMAIJUN" 568 sc DF8 120 ; Compteur des demi-secondes 
see ASC  °JULAQUSEP " 569 MAXIRQ DFB "2","9",0,"5","9";Maximum pour chaque chiffre 
509 ASC  °OCTNOVDEC" 570 
550 ESPAŒ ASC “: /f * 571 mn ——— ==—===v< À 
551 ORDRE DEB 4,3,0,1,2 :Ordre mémoire de MN,HH,AA,MN,JJ 572 * Taille du programe à realoger 
552 max DF8 959,12,31,23,59;Moxinur de AA,MN,JJ,HH,MN 573 
553 MIN DFB 0,1,1,0,0 ;Minimum de AA,MM,JJ,HH,MN 574 NBPAG EQU *-DEBUT*#$FF; Nombre de pages à reloger 
» Es = 6160- 9E 8D 07 BE AD 4C 64 FO 6308- F6 FO E7 AD 4C 64 F0 1A 
Récapitulation 6168- 13 78 A9 00 A0 12 20 2E 6310- 78AD 2C 63 8D FE 03 AD 
£ 3 6170- 63 A9 BF 8D FF 03 A9 EB 6318- 2D 63 8D FF 03 A0 19 20 
DA THEUR 6178- 8D FE 03 58 4C F8 BE A9 6320- 2E 63 A9 08 A0 12 20 2E 
6180- 90 85 FE A9 BF 85 FE 20 6328- 63 58 60 4C 46 63 48 A2 
Après avoir saisi ce code sous 6188- DF 61 90 24 A9 BE 85 FE 6330- 00 86 FE AË 4C 64 86 FF 
moniteur, vous le sauvegarderez par 6190- A9 BE 85 FF 20 DF 61 90 6338- BI FE 85 FE 8A OA OA OA 
BSAVE DATHEUR,A$6000.1$494 6198- 17 A9 56 8D 46 64 A9 01 6340- OA A8 68 6C FE 00 78 A5 
61A0- 8D 47 64 A9 01 8D 48 64 6348- FE 8D 85 64 AS FF 8D 86 
6000= 20 BA 60 AD 98 BF A2 19 61A8- A9 00 8D 49 64 8D 4A 64 6350- 64 AS 45 8D 87 64 8E 88 
6008- C9 BA FO 02 A2 1E 8E 8C 61B0- A2 00 8E 4B 64 20 8 62 6358- 64 8C 89 64 A9 00 AO 12 
6010- 64 A2 00 29 88 FO 02 A2 61B8- 20 4F 62 90 F8 20 0B 63 6360- 20 2E 63 A0 13 20 2E 63 
6018- FF 8E 8B 64 AD 08 BE 8D 61C0- 20 73 F2 20 99 F3 20 58 6368- 90 16 AD 85 64 85 FE AD 
6020- 53 61 AD 07 BE 8D 52 61 61C8- FC A9 05 8D 4B 64 20 BE 6370- 86 64 85 FF AC 89 64 AE 
6028- A9 04 20 F5 BE C9 QC DO 61D0- 62 A9 01 85 22 A9 FF 8D 6378- 88 64 AD 87 64 4C EB BF 
6030- 03 4C 09 BE 8D 08 BE 85 61D8- 8A 64 20 21 62 18 60 AO 6380- AS 22 C9 01 FO 05 A9 00 
6038- FF A9 00 8D 07 BE 85 FE 61£0- 03 Bi FE C9 18 90 02 A9 6388- 8D 8A 64 CE 8D 64 F0 03 
6040- A9 61 85 3B A9 00 85 3A 61E8- 00 8D 49 64 88 B1 FE C9 6390- 4C 18 64 AD 8C 64 8D 8D 
6048- 20 62 60 20 57 61 A9 07 61F0- 3C 90 02 A9 00 8D 4A 64 6398- 64 AD 8A 64 F0 16 A2 O0D 
6050- 8D B4 BE A9 C3 20 70 BE 61F8- 88 B1 FE C9 C8 BO 20 4A 63A0- 2C 8B 64 10 07 2C 1F CO 
6058- 90 06 20 8D BE 4C 09 BE 6200- 8D 46 64 88 B1 FE AA 6A 63A8- 10 02 A2 06 A9 1A SD 00 
6060- 18 60 A2 00 A0 FF AI 3A 6208- 4A 4A 4A 4A F0 11 C9 OD 63B0- 04 9D 00 04 CE 8E 64 D0 
6068- F0 31 20 8C F8 A4 2F C0 6210- B0 OD 8D 47 64 8A 29 1F 63B8- 5F A9 78 8D 8E 64 EE 92 
6070- 02 DO 28 B1 3A C9 BF DO 6218- F0 05 8D 48 64 18 60 38 63C0- BF AD 92 BF C9 3C D0 18 
6078- 10 88 B1 3A C9 00 DO 09 6220- 60 AD 49 64 8D 93 BF 8D 63C8- A9 00 8D 92 BF EE 93 BF 
6080- 88 BI 3A AO 05 C9 20 F0 6228- C1 BE AD 4A 64 8D 92 BF 63D0- AD 93 BF A0 B9 C9 18 DO 
6088- 02 A0 02 B1 3A 38 E9 61 6230- 8D CO BE AD 47 64 OA OA 63D8- 07 A9 00 8D 93 BF A0 B3 
6090- 90 09 C9 04 BO 05 6D 08 6238- OA OA OA OD 48 64 8D 90 63E0- AD 8A 64 F0 33 8C 90 64 
6098- BE 91 3A A2 00 C8 AI 3A 6240- BF 8D 8E BE AD 46 64 2A 63E8- A0 OF 98 2C 8B 64 10 0B 
60A0- 81 FE E6 3A E6 FE DO OA 6248- 8D 91 BF 8D BF BE 60 20 63F0- 2C 1F C0 10 06 4A B0O 03 
60A8- E6 3B £6 FF A9 65 CS 3B 6250- OC FD AC 4B 64 BE 76 64 63F8- 2C 55 CO AA FE 00 04 B9 
60B0- FO 07 88 30 E6 D0 E7 F0 6258- C9 95 FO 2C C9 AO FO 28 6400- 84 64 DD 00 04 BO 11 A9 
60B8- A9 60 A9 C8 85 FF A9 00 6260- C9 88 F0 18 C9 8A FO 40 6408- BO 9D 00 04 88 CO OD FO 
60C0- 85 FE A2 07 C6 FF CA 30 6268- C9 BC F0 3C C9 8B F0 22 6410- FB 2C 54 CO CO OA DO D2 
60C8- 2E AO 05 49 38 D1 FE DO 6270- C9 BE F0 IE C9 8D DO 02 6418- 2C 54 CO A9 08 AO 12 20 
60D0- F3 AO 07 A9 18 D1 FE DO 6278- 38 60 18 60 CO 04 C8 90 6420- 2E 63 AD 85 64 85 FE AD 
60D8- EB A0 08 A9 01 D1 FE DO 6280- 02 A0 00 8C 4B 64 10 F2 6428- 86 64 85 FF AC 89 64 ÀE 
60E0- E3 AO OC A9 20 D1 FE DO 6288- 88 10 02 AO 04 8C 4B 64 6430- 88 64 AD 87 64 58 40 00 
60E8- DB A0 FB A9 D6 D1 FE DO 6290- 10 E8 FE 46 64 BD ?7B 64 6438- CC C9 C2 CS D2 CS O1 C8 
60F0- D3 AS FF 8D 4C 64 60 A9 6298- DD 46 64 B0O DD BD 80 64 6440- CS D5 D2 CS 04 00 00 00 
60F8- 00 8D 4C 64 60 00 00 00 62A0- 9D 46 64 CA 10 EC 30 D2 6448- 00 00 00 00 00 CA CI CE 
6100- D8 AD 6C BE 85 FE AD 6D 62A8- BD 80 64 DD 46 64 DE 46 6450- C6 C5 D6 CD CI D2 C1 D6 
6108- BE 85 FF A2 FF AO 00 E8 62B0- 64 90 C7 BD 7B 64 9D 46 6458- D2 CD C1 C9 CA D5 CE CA 
6110- C8 BD 38 64 10 14 29 7F 62B8- 64 CA 10 EC 30 8C 20 8E 6460- D5 CC C1 CF D5 D3 CS D0 
6118- D1 FE FO F3 49 20 D1 FE 62C0- FD 20 JA FC A0 04 98 48 6468- CF C3 D4 CE CF D6 C4 CS 
6120- FO ED E8 BD 38 64 30 FA 62C8- 20 73 F2 B9 71 64 20 5C 6470- C3 BA AO AF AF A0 04 03 
6128- 10 E3 FO 24 AA BI FE C9 62D0- DB CC 4B 64 DO 03 20 77 6478- 00 01 02 63 OC 1F 17 3B 
6130- OD DO 1D BD 54 61 8D 50 62D8- F2 BE 76 64 8D 46 64 EO 6480- 00 01 01 00 00 00 00 00 
6138- BE BD 55 61 8D 51 BE 88 62E0- 01 FO 15 AA EO OA BO 05 6488- 00 00 00 00 00 1E 78 B2 
6140- 8C 52 BE A9 00 8D 53 BE 62E8- A9 BO 20 5C DB A9 00 20 6490- B9 00 BS B9 
6148- 8D 55 BE 8D 54 BE 18 60 62F0- 24 ED 68 A8 88 10 CF 60 
6150- 38 4C 00 00 4C 5A 61 4C 62F8- OA 6D 47 64 AA AO 03 BD 
6158- 7F 61 A9 BE 8D 08 BE A9 6300- 44 64 20 SC DB E8 88 DO 
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Tokenisation de chaînes 


et equations parameætriques 


G Zæingelstein 


yant apprécié et utilisé 

le programme Tokfon, 

pennettant de modifier 

la définition d'une 
fonction en Basic proposé par 
Gilles Mauffrey dans le numéro 
ii de Pom's sous le titre : “Tracé 
de courbe en conversationnel”, 
j'ai néanmoins eu besoin de le 
modifier, car le programme sur 
lequel je travaillais nécessitait la 
modification de deux fonctions 
prédéfinies. 


La version proposée ici permet 
donc de redéf mir n'importe quelle 
fonction définie par la commande 
DEF FN YY{(X) dans un 
programme, quelle que soit sa 
place, en lui fournissant la 
nouvelle défmition de la fonction 
sous forme d'une chaîne de 
caractères, cette chaine pouvant 


Après avoir BLOADer le 

programme “MODIF FN”, la 

fonction définie par DEF FN 

YY(Z)=... peut être modifiée par 

CALL ZZZZ,X$ FN YY où : 

+ ZZZZ est l'adresse où est 
chargé "MODIF FN", celui-ci 
étant relogeable (l'adresse par 
défaut est $300) ; 


+ X$ est la chaine contenant la 
nouvelle fornule ; 


+ YY est le nom de la fonction 
prédéfinie. 

Le programme dont le source 

"MODIF ENS" a été développé 

sur l'assembleur MERLIN se 

charge alors de “tokeniser” la 

chaîne, puis de la mettre à la place 

de l'ancienne définition, à 

condition que : 

+ la chaine évaluée n'ait pas une 
longueur nulle (ILLEGAL 


+ la fonction ait déja été définie 
(UNDEF FUNCTION 
ERROR); 


+ la place soit suffisante 
(STRING TOO LONG). 


Il termnine ensuite si nécessaire la 
défmition par deux points puis le 
token de REM, pour que le 
programme BASIC n'interprète 
pas les codes pouvant résulter 
d'une définition plus courte que 
les précédentes. 


Comme exemple d'utilisation, le 
programme PARAMETRIQUE 
permet de tracer des courbes 
paramétriques définies par deux 
fonctions d'un paramètre T, l'une 
suivant l'axe X horizontal, l'autre 
suivant l'axe Y vertical. 





tésulter d'une formule. QUANTITY ERROR) ; 
Programme 1060 DIM X(PA),Y (PA) 
> n 1070 D$ = CHRS (4) 
PA RA MET.: AI QU E 1080 PRINT DS"BLOAD MODIF FN" 
1100 REM BOUCLE DES FONCTIONS 
10 GOTO 1000 1110 GOSUB 2000 
1000 REM PROGRAMME PRINCIPAL 1120 GOSUB 3000 
1010 TEXT : HOME 1130 GOSUB 4000 
1020 DEF FN X(T) = T: REM G@R@RCR@R@R@R@RRREEEEe 1140 GOSUB 5000 
CECCEREREEEELELEEEEEEEEEEEEELELELEEEEEELEEEE 1150 GOSUB 6000 
CECECREREEECLELELEEEEEELELELEEEELELELEELELEE 1160 GET A$ 
CECECEEREEECECLELEEECECEELEEEEEELELEEEEEELEE 1170 TEXT 
CECECEEREEEELELELEEECEELELEEEEEELELEEEELELEE 1200 REM AUTRE FONCTION OU VALEUR 
IT 1210 VTAB 24: HTAB 1: PRINT "D'AUTRES VALEURS POU 
1030 DEF FN Y(T) = T: REM COe@eeeeeeeeeeeeeeeeee R T (O/N) : M: 
CECERCACRER ER EREEECEELCEEEEECELELELELELELEEE 1220 GET A$: IF A$ < > "O" AND A$ < > "N" THEN 
CERCLE ERELERER EELELEEEEEEEELELEEEEEELEE 1220 
BECCREEERCECECCEEEEEELELELELEEEEEELELELELELE 1230 HTAB l: CALL - 958 
CCREECCCREREREREREEEEEEEECLELELEEEELELELELEE 1240 IF A$ = "O" THEN 1120 
eECEELELEER ECRLELELEEE 1250 VTAB 24: HTAB 1: PRINT "D'AUTRES FONCTIONS ( 
1040 X1 = O:X2 = 279:Y1 = O0:Y2 = 191: REM LIMITES O/N) : 
DE L'ECRAN 1260 GET AS: IF AS < > "O" AND AS < > "N" THEN 
1050 PA = 280: REM NOMBRE DE PAS POUR TRACER LA FO 1260 
NCTION 1270 HTAB l: CALL - 958 
1055 REM IL FAUDRA ATTENDRE ENVIRON : 1280 IF A$ = “O” THEN 1110 
1056 REM PA / 20 + 1990 HOME : END 
1057 REM NOMBRE DE FONCTIONS TRANSCENDANTES (COS, 2000 REM ENTREE DES FONCTIONS 
SIN,EXP...) * PA / 40 + 2010 VTAB 1: HTAB 5: PRINT "TRACE D'UNE COURBE PA 
1058 REM NOMBRE DE DIVISIONS ET MULTIPLICATIONS * RAMETRIQUE" 
PA / 400 2020 VTAB 4: PRINT "DONNER LES EQUATIONS EN FONCT 
1059 REM SECONDES ION DU TEMPS (EXEMPLE : "3#COS(T)+#T'j" 
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2030 
2040 
2050 
2100 
2110 


2120 
2130 
2140 
2200 
2210 


2220 
2230 
2240 
2250 
3000 
3010 


3020 
3030 
3040 
3050 
3060 
3070 


3080 
4000 
4010 
4020 
4030 
4040 
4050 
4100 
4110 


4120 
4130 
4140 


4150 


4160 
4170 
4180 
4190 
5000 
5010 
5020 
50 30 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5200 
5210 
5220 
5230 





GOSUB 2100 

GOSUB 2200 

RETURN 

REM 

VTAB 8: HTAB 1: PRINT "DONNER LA FONCTION PO 
UR L'AXE DES X :" 


VT'AB 10: PRINT F1$ 
VTAB 10: INPUT "";F1$ 
RETURN 

REM 


VTAB 13: HTAB 1: PRINT "DONNER LA FONCTION P 
OUR L'AXE DES Y :" 

VTAB 15: PRINT F2$ 

VTAB 15: INPUT "";:F2$ 

RETURN 

RETURN 

REM ENTREE DES LIMITES POUR T 

VTAB 18: HTAB 1: PRINT "VALEUR MIN POUR T : 
sl: 

HTAB 21: INPUT "TS 
T1 = VAL (T$) 

VTAB 20: PRINT "VALEUR MAX POUR T : ";T2; 
HTAB 21: INPUT "";T$ 
T2 = VAL (T$) 

IF 92 = Ti THEN MG$ = "VALEUR MIN ET MAX DIF 
FERENTES": GOSUB 7000: GOTO 3000 

GOSUB 8000: RETURN 

REM INSERTION DES FONCTIONS 

ONERR GOTO 4100 

CALL 768,FISFNX 

CALL 768,F2$ FN Y 

POKE 216,0 

RETURN 

REM ERREUR INSERTION FONCTION 

CALL 62248: REM REMET LE STACK POINTER COMME 

IL ETAIT AVANT L'ERREUR 

GOSUB 10000 
A$ = "X": IF EL = 4030 THEN A$ = "Y" 

IF ER = 53 THEN MG$ = "PAS DE FONCTION " + À 
$ 

IF ER = 176 THEN MG$ = "FONCTION " + A$ + " 
TROP LONGUE" 

GOSUB 7000 

IF A$ = "X" THEN GOSUB 2100 

IF A$ = "Y" THEN GOSUB 2200 

GOSUB 8000: RESUME 

REM CALCUL MAX. ET MIN. 
MG$ = "UN INSTANT SVP": GOSUB 7000 

ONERR GOTO 5200 
Mi = FN X(T1):M2 = M1 
NI = FN Y(TI):N2 = NI 

FOR I = 0 0 PA 

T= T1 # I * (T2 - Ti) / PA 
X(I) = FN XIT) 


Y(I) = FN Y{T) 

IF X(I} < M1 THEN M1 = X{I) 
IF X(I) > M2 THEN M2 = X{I) 
IF Y(I)J < N1 TREN NI = Y{I) 
IF Y(I) > N2 THEN N2 = Y{I) 


NEXT I 
À = 1 / (M2 - Mi) 
À = 1 / (N2 - N1) 

GOSUB 8000 

POKE 216,0 

RETURN 

REM ERREUR CALCUL FONCTION 

CALL 62248: REM CF LIGNE 4110 

GOSUB 10000 

IF EL = 5140 THEN M2 = Mi + 1: RESUME 


5240 IF EL = 5150 THEN N2 = N2 + l: RESUME 

5250 A$ = "X": IF £L = 5040 OR EL = 5080 OR EL = 5 
150 THEN AS = "y" 

5260 IFER < > 69 ANDER < > 133 THEN MG$ = "ER 
REUR DE SYNTAX POUR LA FONCTION " + A$: GOTO 
5290 

5270 IF ER = 69 THEN MGS = "DEPASSEMENT POUR LA F 
ONCTION ” + ÀA$ 

5280 IF ER = 133 THEN MGS = "DIVISION PAR O POUR 
LA FONCTION ” + A$ 

5290 GOSUB 7000 

5300 IF A$ = "X" THEN GOSUB 2100 

5310 IF AS = "Y* THEN GOSUB 2200 

5320 POP : GOTO 1130 

6000 REM TRACE DE LA COURBE 

6010 HGR2Z : HCOLOR= 3 

6020 HPLOT (X(0} - M1) * (X2 - X1) / (M2 - M1},(Y 
2 - Y1) -— (Y{0) - NI} * (Y2 - Y1} / (N2 - N1 
Î 

6030 FOR I = 1 TO PA 

6040 HPLOT TO (X{I) - M1) * (X2 - X1) / (M2 - M1 
), (Y2 - Y1) - (Y(I}) - Ni) * (Y2 - Y1) / (N2 
- N1) 

6050 NEXT I 

6060 RETURN 

7000 REM AFFICHE MESSAGE EN LIGNE 24 

7005 GOSUB 8000 

7010 INVERSE 

7020 VTAB 24: HTAB (40 - LEN (MG$)) / 2: PRINT M 
G$; 

7030 NORMAL : RETURN 

8000 REM EFFACE MESSAGE EN LIGNE 24 

8010 VTAB 24: HTAB 1: CALL - 958: RETURN 

10000 REM NUMERO ET LIGNE ERREUR 

10010 ER  PEEK (222) 

10020 EL = PEEX (218) + 256 * PEEK (219) 

10030 RETURN 


Récapitulation 
‘MODIF FN° 


Après avoir saisi ce code sous moniteur, Vous le 
sauvegarderez par BSAVE MODIF 
FN,A$300,L$7E 


0300- 20 06 E3 20 BE DE 20 7B 
0308- DD 20 FD ES A8 FO 69 A9 
0310- 00 99 00 02 88 BI SE 99 
0318- 00 02 88 10 F8 A5 B8 48 
0320- A5 B9 48 A9 02 85 B9 A9 
0328- 00 85 B8 20 59 D5 84 0F 
0330- 68 85 B9 68 85 B8 20 41 
0338- E3 AO O1 B1 8A FO 36 85 
0340- 5F 88 Bl 8A 85 SE B1l SE 
0348- FO 03 C8 DO F9 98 AA FO 
0350- 2A 18 69 05 38 ES OF 90 
0358- 22 AO 00 B9 00 O2 FO 08 
0360- 9I 5E C8 CA DO F5 FO OC 
0368- A9 3SA 91 SE C8 CA FO 04 
0370- A9 B2 91 5E 60 4C OE E3 
0378- 4C 99 El 4C B2 ES 





36 


Pom's n° 24 








Source ‘T.MODIF FN’ 
Assembleur MERLIN 





1 ARR RÉ Rhhhhhhhhhhhhhhhhhhhhhhñih 
2 * * 
a+ INSERTION D'UNE CHAINE * 
4 * TOKENISEE DANS LA DEFINITION * 
5 * D'UNE FONCTION DANS UN PRMG * 
, Cal x 
7 RRRRRRRRRRRRRRR RAR RÉ RAR RAR RRRRR 
8 
9 * (PROGRAMME RELOGEABLE) 
, 10 
11 *.SYNTAX : CALL 768,XS FN YY 
12 * TRANSFORME EN TOKEN LA FORMULE DANS Xx$, ET 
13 * LA DEPLACE DANS LA DEFINITION DE LA FONCTIO 
14 * N YY ({XS PEUT ETRE UNE FORMULE DONNANT UNE 
15 * CHAINE, EX : CALL 768,A$+"+":BS FN YY ) 
16 
17 REM = $B2 ; TOKEN DE REM 
18 
19 PNTR = $0F ;CONTIENT LG CHAINE 
20 INDEX Eu $5E 
21 FNCNAM = S8A ; CONTIENT ADR VARIAB 
LE FONCTION 
22 TXTPTR = $B8 
23 
24 IN = $200 ; BUFFER ENTREE 
25 GETIN E $D559 ROUTINE DE 
26 ;CONVERSION EN TOKEN 
27 PARSE = $D56C ;CONVERTIS EN TOKEN 
A PARTIR DE $200+X 
28 CHKSTR = SDD6C ;CHECK LAST RESULT = 
STRING 
29 FRMEVL = $DD7B ;EVALUE FORMULE 
30 CHKCOM = $DEBE :CHECK "," 
31 PTRGET = SDFE3 ; RECUPERER ADRESSE V 
AR. À TXTPTR 
32 IQERR = $E199 ;""ILLEGAL QUANTITY" 
33 ERRDIR = $E306 ; CHECK MODE PROGRAMM 
34 UNDFNC = $E30E ; "UNDEF FUNCTIONW" 
35 FNC? = $E341 CHECK TOKEN DE ‘FN' 
36 ;ET RETOURNE LE POIN 
37 ; TEUR VERS LA VARIAB 
LE CONTENANT LES PARAMETRES D 
E LA FONCTION 
38 STRLONG = $E5B2 ;"STRING TOO LONG" 
39 FRESTR = $SE5FD ; CHECK STRING ET RET 
OURNE ADRS ET LONG 
40 
41 * UNE VARIABLE REPRESENTANT UNE FONCTION 
42 * (EX : DEF FN AB(CD)=...) EST CODEE : 
43 * - 1IER CAR EN ASCII NECATIF (= "A") 
44 * - 2IEME CAR EN ASCII POSITIF {= 'B') 
45 * - ADRESSE FORMULE DE LA FONCTION (2 OCTETS) 
46 * (POINTE APRES SIGNE = DANS DEF FN AB(CD)=.) 
47 * - ADRESSE ARGUMENT INFORMEL ‘CD' (2 OCTETS) 
48 * - 1IER CAR DE L'ARGUMENT (=°C') 
49 
50 ORG $300 
51 
52 JSR ERRDIR ;ERREUR MODE DIRECT 
53 * RECUPERE CHAINE 
54 JSR  CHKCOM 
55 JSR FRMEVL 
56 USR FRESTR 
57 TAY 
£9 BEQ ERROR ; LONGUEUR = 0 
59 * LA TRANSFERT DANS BUFFER IN 
60 LDA #0 
Pom's n° 24 





61 STA IN,Y ;RAJOUTE ‘00' DE FIN 
62 DEY 
63 LOOP LDA (INDEX) ,Y 
64 STA IN,Y 
65 DEY 
66 BPL LOOP 
67 * TOKENISE LA FONCTION 
68 LDA TXTPTR 
69 PHA 
70 LDA TXTPTR+1 
71 PHA 
72 LDA #>IN 
73 STA TXTPTRS#I ; (FACULTATIF ; NON U 
TILISE DANS GETIN) 
74 LDA #<IN 
75 STA TXTPTR 
76 JSR GETIN sY = NBRE CAR DE FN 
77 STY PNTR ;SAUVE LONGUEUR FN 
78 PLA 
79 STA TXTPTR+I 
80 PILA 
81 STA TXTPTR 
82 * RECUPERE ADRESSE FONCTION 
83 USR FNC? 
84 LDY #1 
85 LDA (FNCNAM),Y 
86 BEQ UNDEF ‘FN NON DEFINIE 
87 STA INDEX+1 
88 DEY 
89 LDA (FNCNAM),7Y 
90 STA INDEX 
91 * VERIFIE QUE LA PLACE EST SUFFISANTE 
92 CHKPLCE LDA (INDEX),Y 
93 BEQ FINLIGNE ; (0=FIN LIGNE BASIC) 
94 INY 
95 BNE CHKPLCE ; TOUJOURS 
96 * 
97 FINLIGNE TYA 
98 TAX 
99 BEQ ERROR2 ; PAS DE PLACE 
100 CLC 
101 ADC #5 *AJUSTE POUR PNTR 
102 SEC 
103 SBC PNTR 
104 BCC ERROR2 ‘PAS ASSEZ DE PLACE 
105 * TRANSFERT NOUVELLE FONCTION 
106 LDY #0 
107 LOOP2 LDA IN,Y 
108 BEQ FINIR 
103 STA (INDEX) ,Y 
110 INY 
111 DEX 
112 BNE  LOOB2 
113 BEQ END -PAS DE ‘: REM’ 
114 * RAJOUTE ‘: REM' SI NECESSAIRE 
115 FINIR LDA #‘:' 
116 STA (INDEX),Y 
117 INY 
118 DEX 
119 BEQ END 
120 LDA #REM 
121 STA (INDEX) ,Y 
22201% 
123 END RTS 
124 
125 * TRAITEMENT ERREURS 
126 UNDEF JMP  UNDFNC ‘ERR "UNDEF FUNCTION 
127 
128 ERROR UMP  IQERR ; “ILLEGAL QUANTITY" 
129 
130 ERROR2 JMP  STRLONG ; “STRING TOO LONG" 


——____—_—_—_—_aEaEa_a_——_—_—_—_  …_—_—m 
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CM. #po. Macintosh est une marque sous licence chez Apple Computer, Inc 





Tant qu'à faire 5 choses à la fois 


Que ceux qui 
aiment travailler en 
faisant deux ou trois 
choses à la fois ne 
changent rien. au 
contraire, avec 
Apple et Jazz ils 
peuvent faire mieux. 

| je de Lotus, C'est un programme 
créé pour Macintosh 512 Ko, équipé d'un 
lecteur externe qui permet de devenir un 
parfait jongleur professionnel. 

Cinq programmes en concert, 
c'est-à-dire un tableur, un grapheur. un 
gestionnaire de fichier, un traitement de 
texte et un programme de 
communication réunis en un seul 
programme. Ou comment être à cinq 
sur la même souris. 








Pouvoir gérer cinq applications à 
partir d'un seul écran. modifier une 
donnée dans une application et qu'elle 
se modifie automatiquement dans les 
autres. pouvoir sauter d'un graphe à un 
traitement de texte sans attendre les 
secondes qui durent une éternité pour 
changer de programme. c'est bien... 

Quand on s'aperçoit que ces cinq 
programmes sont individuellement 
excellents. c'est une révolution. 


Jazz. c'est l'outil idéal d'un directeur 


de service. 

Prenons un exemple qui exige beaucoup 
de souplesse, de rapidité, et de doigté, la 
direction des services secrets : 

- Avec un tableur capable d'afficher 
8192 lignes sur 256 colonnes, la gestion 
devient beaucoup plus facile. Si un fait 


nouveau apparaît, rien n'est plus facile 
que d'étudier deux ou trois hypothèses 
afin de ne pas être pris de court. 

- Quand un projet est fin prêt, il faut 
bien le présenter à ses supérieurs et 
parfois même beaucoup plus haut; un 
grapheur permet de transformer toutes 
les données numériques obscures en 
graphiques lumineux 





- Si le projet est accepté, un traitement 
de texte est nécessaire pour que chaque 
agent concerné soit au courant dans ses 
moindres détails. Evidemment quand 
on travaille dans un tel service il vaut 
mieux pour Macintosh pouvoir copier. 
effacer, modifier, ou coller des dessins. à 
chaque instant. 





Apple Computer France. Avenue de l'Océanie * 





autant les faire en même temps. 


é Fichier Edition MALTA Graphe Trace Axe Carac. Style 
Agrandir 


Presse-papiers 
Tableau des references 


UENTES 

Marche Choco Mae 

REPRRTITION Be ventes 
Birecteurs L'entes : FA Bénéfices 


Zémetrim 3ème trim 


Apple, le logo Apple sont les nrarques déposées d'Apple Computer, Inc. 


Jazz est une marque déposée de Lotus Development Corporation. 





Feuille de travail Jazz. 





Grâce à son gestionnaire de fichier, Jazz 
fait la fusion automatique entre un 
mémo et une liste de correspondants à 
sélectionner selon un critère spécial. 

Et avec un modem full duplex 1200 bauds 
en un instant votre cerrespendant 
reçoit toutes les informations précises à 
l'autre bout du monde. 

Avec jazz l'entreprise est rentable, 
rondement menée, précise et discrète, 
inutile d'avoir 35 collaborateurs pour 
rédiger le projet. 

Jazz c'est cinq programmes liés 
entre eux si parfaitement que l'agent 
double est enfin enterré, place à l'agent 
quintuple. 





Z.A. de Ceurtabœuf, BP 131,91944Les Ulis Cedex. 
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ÜN COMPOSEUR TELEPHONIQUE SUR 


MACINTOSH 


suite logique aux deux derniers 
numéros de Pom's, voici le 
nécessaire pour que votre 
Macintosh ait accès au téléphone. 
Deux éléments pour ce faire : une 
petite carte électronique simple à 
réaliser, et un programme. 


La carte 


Connectée sur la sortie 
“communication” du Macintosh, 
elle ne nécessite évidemment 
aucune modification de 
l'ordinateur. 

Les composants sont relativement 
bon marché et très communs, la 
simplicité du circuit plaçant le 
montage à la portée des non- 
initiés. 

C'est le relais CLARE qui assure 
les impulsions nécessaires au 
système téléphonique, le 2?m® 
relais libèrant la ligne quand 
l'ordinateur est hors-tension. 


Les schémas devraient permettre 
de mener à bien cette petite 
réalisation ; le condensateur (anti- 
parasite) de 100 JLF est polarisé 
donc attention au sens du 
montage. La sortie destinée à 
l'ordinateur doit obligatoirement 
être munie d'une prise 9 
broches. L'interrupteur est une 
sécurité pour couper le système 
tandis que le Mac utilise un autre 
programme (incompatible avec le 
montage.) 





Une résistance 1IKQ 
Un condensateur 100 HF/ 
:  100V 
Une diode LED Smm 
. Uninterrupteur 
.. Un connecteur 9 broches 
: Un relais miniature 12V 
Matsushita HB2 
: Un relais SV CLARE 
15005AB 






D. VENOT 


Relais 5V Clare 


Le téléphone simulé par le Mac 
est en série avec le réel ce qui 
permet de protéger la ligne. Il est 
impossible pour le Macintosh de 
composer un numéro si le 
téléphone ne le permet pas. 


Le programme 


Il se chargera des préfixes dans le 
cas des communications : Paris 
province, province Paris (ajout 
du 16 ou 16 1) ainsi que dans le 
cas d'appels à l'étranger. 


Le fichier répertoire n'est limité 
que par la place sur le disque. Les 
boutons “précédente” et 
"suivante" permettent de changer 
de page dans le cas où une ne 
serait pas suffisante. Pour faire 
apparaître une page en fonction 
d'une lettre, cliquez sur l'alphabet 
la lettre désirée. Les fiches sont 
classées dans l'ordre alpha- 
bétique, l'article de classement est 
la concaténation “nom/prénom”. 


Les menus 
Fichier 

Basic 

retour au basic. 


Finder 
retour au fmder. 





Carnet 


Nouvelle fiche 

Entrée d'une nouvelle fiche dans 
le fichier, il est conseillé de 
donner le code postal. 

Fermer le carnet 

Le carnet est fermé et il est 
impossible aux regards indiscrets 
d'observer les fiches. Pour 
l'ouvrir, cliquer la souris. 


Edition 

Nouveau répertoire 

Après avoir demandé votre 
autorisation le présent fichier est 


détruit au profit d'un nouveau 
(prudence). 


Click 


Lorsqu'une page est affichée, le 
fait de pointer une fiche et de 
cliquer permet de la détruire, de la 
modifier, de composer le 
numéro... La fonction du click 
est selectionnée dans le menu 
Click : 

Afficher 

un click fait afficher la totalité 
d'une fiche ; 

Editer 

un click édite la fiche pointée en 
vue de modifications ; 

Détruire 

la fiche pointée est détruite aprés 
une autorisation ; 





Pom's n° 24 








Composer le numéro 

le numéro de la fiche pointée est 
composé immédiatement avec les 
conventions imposées par les 
rubriques “Région et Pays”. 


Côté Carte 


471 


Côté ordinateur 


Région 

Automatique 

l'ordinateur utilise le code postal 
de la fiche pour accorder les 
préfixes et compose le numéro 
(France) ; 

Paris -> Province 

l'appel est en direction de la 
province ; 

Province->Paris L'appel est 
imposé vers Paris (16 1 ...). 





Pays 

Ce menu permet de sélectionner 
un pays pour un appel à 
l'étranger, les préfixes d'appels 
seront placés automatiquement. 
S'il ne s'agit pas de La France, la 
rubrique Région n'a pas d'action. 
Il est possible de compléter ou de 


modifier la liste. 
DIM 1i$(25),cu#%(100):np=5 


Programme Répertoire téléphonique ra royaume uni,19# 44,a11e 


magne RFA, 19# 49,Etats Uni 
8,19# 1,Belgique,19# 32,Su 
isse,19# 41 

OPEN "comi:110" FOR OCUTPUT 
AS 1:CLOSE 

start: 

OPEN "“rep2" FOR INPUT AS 1 
LEN=113:INPUT#1,nb$:FOR 
i=0 TO 25:LINE INPUT#1, 

li$(i) :NEXT:CLOSE*#1:OPEN 
“repl'" AS 1:FIELD#I, 15 À 
S no$,15 AS pr$,18 AS tel 
$, 40 AS adr$, 10 AS cp$,15 
AS vil$:nb$-VAL(nbé):cur$ 
=0:ra-16:pas=1 

WINDOW 1,'"agenda",(8,28)}-(5 
05,335}),2:NWNINDOW OUTEUT 

l:TEXTFONT OC:TEXTSIZE 12 
: TEXTMODE 1:GOSUB curseu 
r:FOR i=1 TO S:MENU i,0,0 
,; "":NEXT:MENU 1,0,1,"Fich 
ier":MENU 1,1,1,"Basic'":M 
ENU 1,2,1,"Finder":MENU 2 
,0, 1, "Carnet" :MENU 2,1,1," 
Nouvelle fiche" 

MENU 2,2,1,'"Féèrmer le carnet 
">: MENU 3,0,1,"Edition":ME 
NU 3,1,1,"Notuüveau répertoi | 
re":MENU 4,0,1,"Click'":ME 










de A 


T1 T2 Câble du téléphone 











O Carte MACCOMPOS 
O C9L46 HYCCOHLO2 
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NU 4,1,1, "Afficher":MENU 
4,2,1, "“Editer":MENU 4,3,1, 
"Détruire":MENU 4,4,2,"Com 
poser le numéro":MENU 5,0, 
1, "Région" 

MENU 5,1,2, "Automatique":ME 
NU 5,2,1, "Paris -> Province 
e":MENU 5,3,1, "Province -> 

Paris":MENU 6,0,1,"Pays": 
MENU 6,1,2,"France":RESTO 
RE:FOR i=1 TO np:READ a$ 
DS :MENU 6,i+1,1,aS:NEXT: 
re$="":pa$="":pa=l':re-1:ME 
NU ON:etso=3:ON MENU GOS 
UB testmenu:GOSUB dessin 

IF start=l1 THEN RETURN 

debut: 

MENU:p$=INKEYS :p=ASC(p$+" 
“")-48:IF pS=-CHRS$S(34) THEN 

P=3 

IF p$<>"" THEN a=INSTR('àc 
ée'(Sè!ç",p$):IF à THEN p 
=a-l 

IF p>=0 AND p<10 THEN GOSU 
B digit 

m=MOUSE (0):IF m=1 THEN sou 
ris 

di=DIALOG(0):d2=DIALOG{(1) 

IF di=1 THEN ON d2 GOTO pr 
e, sui 

IF dl=5 THEN GOSUB dessin 

GOTO debut 


pre: 
pa$=pa$-6:GOSUB carnet : GOTO 
debut 
sui: 
pa$=pa$+6:GOSUB carnet :GOTO 
debut 
souris: 
a=MOUSE (1) :b=MOUSE(2):IF b 
>48 AND b<260 AND a<460 T 
BEN aff 
IF b>30 THEN BEEP:GOTO deb 
ut 
1=cur$:cur$=(a-10)/ra:IF l1=c 
ur$ OR cur$>=26 THEN cur$ 
=]1:BEEP : GOTO debut 
PUT (l*ra+4,0),cu$(0),XOR:F 
OR i=(1l*ra)+4 TO cur$*ra+4 
STEP 3*SGN(cur$-1) :PUT ( 
i,0),cu$%(0),XOR:PUT (i,0) 
-cu$(0),XOR:NEXT:PUT (cur 
$*ra+4,0),cu%(0),XOR:pa#%=1 
: GOSUB carnet:GOTO debut 
aff: 
n<(b-64)/32+tpa$:IF n>LEN(1i 
S{(cur$}) THEN BEEP:GOTO 
debut 
IF etso=0 THEN souris2 
IF etso=2 THEN detruire 
IF etso=3 THEN composer 
nn=ASC(MID$(l1i${(cur#),n,1l)) 
:GOSUB entree:LINE(2,48)- 
(469,269),30,b£f:LOCATE 5, 
S:PRINT no$;:" ";pr$:LOCAT 
E 6,2:PRINT adr$:LOCATE 


7,2:PRINT vil$;" ";cp$S:LO 
CATE 9,25:PRINT'"tel Lt a 
e1l$:BUTTON CLOSE 1:BUTTO 
N CLOSE 2:BUTTON 1,1,"ok 
", (0,282)-(100, 305) 

WHILE DIALOG(0)<>1:WEND:B 
UTTON CLOSE 1:GOSUB carn 
et: GOTO debut 

souris2: 

fis$=ASC(MIDS (1i$ (cur$),n,1) 
) :nn=fi$:GOSUB entree:mod 
if=1:GOSUB nouvin:GOTO de 
but 

detruire: 

nn=ASC(MIDS (l1i$ (cur8%),n, 1) ) 
:GOSUB entree:t$="La fich 
e "“+a$+" doit être détruit 
e ?":GOSUB accord:IF r$=" 
n'" THEN detruirel 

GOSUB del 

detruirel: 

GOSUB carnet:GOTO debut 

dessin: 

LINE (3,3)-(443,23),33,bf:LI 
NE(0,0)-(440,20),30,bf:LI 
NE(0,20)-(440,20),33:LINE 
(440,0)-(440,20),33:FOR i= 
1 TO 26:LOCATE 1,i*2:PRI 
NT CHR$(96+i) :NEXT:PUT(c 
ur$*ra+4,0),cu#(0),XOR:FO 

R i=1 TO 10 STEP 2:LINE/( 
10-i, 40-1i) -(480-i,280-ài),3 
0,bf 

LINE (10-i,40-1i)-(480-i,280-i 
),33,b:NEXT:LOCATE 3,3:P 
RINT"'Nom :‘":LOCATE 3,15: 
PRINT" Téléphone:":LOCAT 
E 3,27:PRINT'"Adresse :" 

carnet : 

LINE (2,48)-(469,269),30,b£f: 
LINE (300, 282) -(500, 305) ,30 
,bf:LOCATE 19, 40:PRINT L 
EN(liS$(cur$));"/";nb$%; "© D 
. Venot",::LINE(115, 35) -(115 
:265),33:LINE(205,35)-(205 
:265),33:LINE(5,48)-(465, 4 
7),33,bf:FOR i=0 TO 13:LI 
NE(5,48+1i*16)-(465,48+1i*16 
),33:NEXT 

n=4:ma$=pa$:BUTTON 1,1,"pré 
cédente",(0,282)-(100,305) 
:IF pa$%-1 THEN BUTTON 1, 
0 

BUTTON 2,0,"suivante", (110, 
282)-(210,305) 

carnetl:IF m$>LEN(li$s (curs 
)) THEN ma$=0:BUTTON 2,0: 

RETURN 

IF n>=17 THEN BUTTON 2,1:R 
ETURN 

nn=ASC (MID$S(1i$(cur$),ma%, 1 
}1:GOSUB entree 

LOCATE n,1:PRINT a$:LOCAT 
E n,15:PRINT" "+cS$S:LOCAT 
E n,27:PRINIT d$S:LOCATE n 
+1,3:PRINT bS$:LOCATE n+1 





,27:PRINT e$+t" "+#+fS$:n=nt 
2:ma%=-ma$%+1:GOTO carnetl 

Fermer: 

LINE (2,48)-(469,269),30,bf: 
FOR i=20 TO 460 STEP 20: 
LINE(i,50)-(i,260),33:NEX 
T:FOR i=60 TO 260 STEP 20 
:LINE (10,i)-(460,1i):NEXT: 
LINE (30,96)-(200,144),30,b 
f:LOCATE 8,10:PRINT'"Répe 
rtoire":WHILE MOUSE (0)<>1 
:NEND: GOTO carnet 

curseur: 

LINE (0,0)-(20,18),33,b:LINE 
(1,1)-(19,17),33,b:LINE(10 
:0)-(10,3),33,b:LINE(10,18 
)-(10,15),33,b:GET(0, 0)-(2 
0,18),cu$(0) :RETURN 

testmenu: 

m1l=MENU (0) :m2=MENU(1):IF ml 
-1 THEN ON m2? GOTO fin,fi 
nder 

IF ml=-2 THEN ON m2 GOTO no 
uv, fermer 

IF m=3 THEN rep [2 

IF ml=-4 THEN clic 





IF ml=5 THEN region BE > 
IF m1=6 THEN pays D 
RETURN 

region: 


MENU 5,re, 1:MENU 5,m2,2:re= 
m2 

IF m2=1 THEN re$="" 

IF m?2=2 THEN re$="16 " 

IF m2=3 THEN re$="16 1 " 

RETURN 

pays: 

MENU 6,pa, l:pa=m2:MENU 6,pa 
,2:IF pa=1 THEN pa$="":RE 
TURN 

RESTORE:FOR i=1 TO pa-1l:RE 
AD pays$,paS$:NEXT:RETURN 

rep: 

t$="Création d'un répertoire 

et destruction du résidan 
t.":GOSUB accord:IF r$="n 
" THEN carnet 

CLOSE#1:OPEN "rep2" FOR OU 
1PUT AS 1l:PRINT#1,"O":nb 
$=0:FOR i-0 TO 25:1iS$S(i)= 
"M:PRINT#1,1i$(i):NEXT:C 
LOSE#1:KILL "repl'":start- 
1:GOTO start 

fin: 

CLOSE #1:GOSUB sauve :MENU R 
ESET : END 

sauve: 

OPEN "rep2" FOR OUTPUT AS 
#1:nb$=STRS$S (nb$) :PRINT#1, 
nbS$:FOR i=0 TO 25:PRINT#FI 
:1i$(i) :NEXT:CLOSE#1:RET 
URN 

nouv': 

modif=0:a$="":bS="":cS$S="":dS$ 
='"ese"":f$s="" 

nouvin: 


——_—.  —_—_—_———————.—————————————————————— 
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LINE (2, 48)-(469, 269), 30,bf: 
LOCATE 7,2:PRINT"Prénom 
:":EDIT FIELD 2,bS$, (80,96 
J-(280,112) :LOCATE 9,2:PR 
INT'"Téléphone :":EDIT FIE 
ID 3,c$,(110,128)-(310,144 
J :LOCATE 11,2:PRINT'"Adre 
sse :":EDIT FIELD 4,d$,(8 
0,160)-(440,176) :LOCATE 1 
3,2:PRINT"Ville 

EDIT FIELD 5,e$, (70,192)-(2 
70,208) :LOCATE 15,2:PRIN 
T"Code postal :":EDIT FIE 
LD 6,f$, (120,224)-(320, 240 
J:LOCATE 5,2:PRINT'"Nom : 
":EDIT FIELD l,a$, (60,64) 
— (260, 80) :BUTTON 1,1,"Ok" 
, (0,282)-(50, 305) :BUTTON 
2,1,"Fin", (60,282)-(130,30 
S) 

nouv1: 

IF DIALOG(0)<>1 THEN nouvl 

bou=DIALOG (1) 

IF bou=1 THEN ok 

IF bou=2 THEN GOSUB nouvfi 
n:GOTO carnet 

GOTO nouvl 

ok: 

a$=EDITS (1):b$=EDITS (2) :c$= 
EDITS(3):dS$=EDITS(4):e$= 
EDITS(5):f$-EDITS(6) :GOS 
UB nouvfin:fl$=f1i8:nb#%=nb#% 
+1:fi%=nb$ 

nouvde l: 

a$-a$+t" ":aS$=UCASES(LEFTS 
(a$,1}}+RIGATS (a$, LEN(a$) 
—1) :n=ASC(a$)-65S:IF fis$=1 
3 THEN fi$=0 

IF li$(n)="" THEN liS(n)=-CH 
R$(f1i$) :nn=fi$8:GOTO sorti 
e 

FOR i=1 TO LEN(li$(n)} :nn=A 
SC(MID$S(li$(n},i,l)):IF n 
n=0 THEN nn=13 

GET#1,nn:IF UCASES (no$+tpr$ 
J}>UCASES (a$+b$) THEN plac 
e 

NEXT 

1i$ {n) =1i$ (n) +CARS (fi $) :nn=f 
i$:GOTO sortie 

place: 

nn=fi$:IF i=1 THEN liS$(n)=C 
ER$(fi8)+1i$ (n) :GOTO sort 
ie 

1i$(n) =LEFTS$S (l1i$ (n),i-1)+CH 
R$S(fi$)+MIDS(li$(n),i) 

sortie: 

IF nn=0 THEN nn=13 

LSET no$=a$:LSET pr$=b$:Ls 
ET tel$=c$:LSET adr$-=d$:L 
SET vil$=e$:LSET cp$=f$:P 
UT#1l,nn:IF modif-=l1 THEN n 
n=fl$:GOSUB del:GOTO carn 
et 

IF modif=2 THEN RETURN 

IF modif=0 THEN nouv 
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GOTO carnet 

nouvfin: 

FOR i=1 TO 6:EDIT FIELD CL 

OSE i:NEXT:BUTTON CLOSE 
1:BUTTON CLOSE 2:RETUR 
N 

entree: 

IF nn=0 TBEN nn=13 

GET#1,nn:a$=no$:b$=pr$:c$=te 

l$:d$=adr$:e$=vil$:f$=cp$: 
RETURN 
C11c: 
MENU 4,1,1:MENU 4,2,1:MENU 
4,3,1:MENU 4,4,1:IF m2=2 
TBEN etso=0:MENU 4,2,2 
IF m2=1 THEN etso=1:MENU 4, 
1,2 

IF m2=3 THEN etso=2:MENU 4, 
4,2 

IF m2=4 THEN etso=3:MENU 4, 
4,2 

RETURN 

finder: 

CLOSE #1:GOSUB sauve:SYSTEM 

accord: 

LINE(2,48)-(469,269),30,bf: 

LOCATE 5,2:PRINT t$:BUTT 
ON 1,1,"Oui",(100,100)-(15 
0,120) :BUTTON 2,1,"Non", { 
170,100)-(220,120) :WBILE 
DIALOG (0) <>1:WEND:BUTTON 
CLOSE l:BUTTON CLOSE 2: 
IF DIALOG(1)=1 THEN r$=" 
oc" :RETURN 
r$="n":RETURN 
DEL: 
IF nn=0 TSEN nn=13 
fi$=nn:n=INSTR(li$ (cur$),CH 
R$ (nn) } :p=cur$:GOSUB coup 
er:IF nn=nb$ THEN nb$#=nb$ 
—-1:RETURN 
FOR p=0 TO 25:n=INSTR(li$ (p 
), CHERS (nb%) ):IF n<>0 THEN 
GOSUB couper:GOTO del2 
NEXT p:BEEP :BEEP :RETURN 
del 2: 
nn=nb#$:GOSUB entree:nb$=nb#$ 
—l:modif-=2:GOTO nouvdel 
couper: 
IF LEN(li$(p}}=1 THEN li$(p 
)="":RETURN 
IF n=1 THEN li$(p)=MID$(l1i$ 
(p) , 2) :RETURN 
IF n=LEN(li$(p)) THEN li$(c 
ur$%)=-LEFTS(li$(p),LEN(liS$ 
(p) ) -1) :RETURN 
1i$(p)=LEFTS (1i$ (p),n-1)+MI 
D$(1i$(p),n+1) :RETURN 
composer: 
LINE (2,48) -(469,269),30,bf:n 
n=ASC(MID$S(li$(cur$),n,l) 
) : GOSUB entree:LOCATE 14 
, 4:PRINT A$,:'"" ",-B$:LOCAT 
E 15,4:PRINT d$:p$=c$:a$®= 
" MHLEFTS(f$, 2) :B$=RES :LO 
CATE 16,4:PRINT e$,;" 


"*f$S:IF pa<>l THEN b$="" 

IF pa=l AND re=l THEN IF I 
NSTR (" 91 92 93 95 77 78 9 
4 75 ",a$)<>0 THEN b$="'" 

ELSE b$="16 " 

LOCATE 5,20:IF pa=1l TSEN P 
RINT'"'En france" ELSE PRI 
NT pays$:GOTO compl 

LOCATE 5,2:IF re=l1l THEN PR 
INT'"Automatique." 

LOCATE 6,7:IF b$="16 " THE 
N PRINT"'Vers la province. 

IF b$="16 1 " THEN PRINT'"V 
ers la région Parisienne." 

IF b$="" THEN PRINT'"zone i 
ntérieure, région Parisien 
ne." 

compl:p$=pa$+" "+b$S+" "+p$ 
:LOCATE 10,3:PRINT"Compo 
ser le numéro :";pS$:LOCAT 
E 12,12:PRINT'COMP OS 

I TI O N'":GOSUB numero: 
IF p$<>''"" THEN LOCATE 13 
,10:PRINT"E N LEIGN 
E . . . ‘" ELSE LOCATE 13, 
10:PRINT'INTERRUP 
T I O N'":GOTO comp2 

FOR i=1 TO 5:BEEP:NEXT:FOR 

i= 1 TO S0O00O:NEXT 

conp2: 

GOSUB carnet :GOTO debut 

numero: 

FOR X=1 TO LEN(p$) :p=ASC(M 
ID$ (p$,x,1)]-48:IF p<O OR 

p>9 THEN impnu 

GOSUB digit 

IF MOUSE(0)=2 OR INKEYS$=" 
" THEN p$="":RETURN 

numl :NEXT:RETURN 

inpPnu: 

IF p=-13 THEN FOR i=1 TO 1 
0000! :NEXT 

GOTO numl 

DIGIT: 

IF p=0 THEN p=10 

a$=STRINGS (p, 248) : OPEN "CO 
M1:110,n,8 ,1 ‘ FOR OUTPU 
T AS 2:PRINT#2,A$;:CLOSE 
#2:FOR i=-1 TO 1000:NEXT:R 


ETURN 
Programme © E 
initialise” 


REM Programme créateur de fi 
chiers "répertoires", doit 
être utilisé avant la pre 
mière mise en service du p 
rogranme 

OPEN "rep2" FOR OUTPUT AS 
l:PRINT#l,"0":FOR i=0 TO 
25 :PRINT#1, "":NEXT:CLOSE 
:END 
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Le Macintosh offre à ses 
utilisateurs la remarquable 
possibilité de faire passer à peu 
près tout entre applications et/ou 
accessoires de bureau, et en 
particulier du texte. Pour cela, les 
programmeurs qui ‘développent’ 
en Basic ou en Pascal (ou avec un 
autre langage évolué) disposent 
de routines qu'il suffit d'appeler 
aux moments voulus, moments 
qui, nous le verrons plus loin, 
devront être choisis avec soin si 
l'on veut respecter la philosophie 
Macintosh et, surtout, le confort 
de l'utilisateur. Nous ne nous 
intéresserons ici qu'aux données 
de type “TEXT” bien qu'il soit 
bien entendu possible de passer 
des informations graphiques 
“PICT” (picture) par ce biais, 
mais, de toute façon et pour ce 
genre de traitement, la principale 
différence entre les deux types est 
que c'est exactement la même 
chose. 


TEScrap et 
DeskScrap 


La plupart des applications et 
accessoires de bureau utilisent un 
“presse-papiers” géré exciusi- 
vement et automatiquement par le 
système d'édition de texte 
(TextEdit). Celui-ci, baptisé 
TEScrap se charge de la 
manipula#ton des textes coupés, 
copiés ou collés à l'aide des 
routines TECut, TECopy et 
_TEPaste. Donc, à l'intérieur 
d'une application ou d'un 
accessoire, le programmeur doit 
seulement appeler les trois 
routines en question, en fonction 
de l'article sélectionné par 
l'utilisateur dans le menu 
“Édition” (ou de leur ‘équivalent 
clavier’ : Commande-X, C ou V) 
sans se soucier de la manipulation 
du texte traité. Mais ceci ne vaut 
qu'à l'intérieur d'une même 
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application ou d'un même 
accessoire. Dès lors qu'il s'agit 
de passer du texte hors du 
programme en cours, il faut avoir 
recours à un second 
presse-papiers : celui du bureau, 
baptisé DeskScrap. Ce dernier 
est donc employé comme tampon 
(en mémoire, ou sur disque si sa 
taille ne pertnet pas un maintien 
en mémoire) lorsque l'utilisateur 
a, par exemple, copié l'heure et la 
date affichées par l'accessoire 
“Horloge” pour le coller dans un 
document MacDraw, ou encore 
couper un paragraphe de texte 
depuis MacWrite pour le coller 
dans le “Calepin” ou dans un 
document MacPaint. 


Des routines... 


dites de haut niveau pour le 
Basic, Pascal et les autres 
langages évolués, maïs pas pour 
l'assembleur, d'où la présence de 
cet article. 


En Basic Microsoft, DeskScrap 
est considéré comme étant un 
fichier séquentiel, au même titre 
que le clavier, les connecteurs 
‘série’ et l'écran. Pour ouvrir ce 
fichier en entrée : 


OPEN ‘“CLIP:TEXT" FOR 
OUTPEUT AS 1 

en sortie : 

OPEN "CLIP:TEXT" FOR 
INPUT AS 1 


Les Pascaliens, de leur côté, 
disposent des  routines 
TEFromScrap - pour faire 
passer du texte depuis le 
presse-papiers DeskScrap vers le 
presse-papiers TEScrap - et 


TEToScrap - pour faire 
l'inverse. 
Rien de tel donc pour 


l'assembleur et, si ‘Inside 
Macintosh" préconise l'utilisation 
des variables  giobales 


TEScrpHandle et TEScrpLength 
ainsi que des fonctions GetScrap 
et PutScrap, il n'en reste pas 
moins que l'écriture de routines 
équivalentes à TEFromScrap et 
TEToSérap, bien que 
relativement simple, n'est pas 
forcément évidente. C'est 
pourquoi nous proposons deux 
routines en assembleurs qui 
pourront être très facilement 
implantées dans vos programmes 
et accessoires de bureau. 


Routine 
TEFromScrap 


Cette routine se charge du 
passage du texte depuis 
DeskScrap vers TEScrap. Elle 
sera appelée depuis votre 
application ou accessoire par un 


BSR TEFromScrap 


Les registres dont le contenu est 
suscep#bles d'être modifié sont 
préservés et restitués en fin 
d'exécution. Au retour, le bit Z 
du registre d'état est positionné à 
1 s'il n'y avait pas de texte à 
transféré, ou si le texte n'avait pu 
être transférer du fait d'une erreur 
au niveau du système 
d'exploitation (OSErr). En cas 
d'erreur de ce type, votre 
programme peut trouver le code 
d'erreur en -26(SP) à condition, 
bien sûr, de le faire avant toute 
nouvelle opération pouvant 
engendrer une modification du 
contenu du registre A7 (pointeur 
de pile). 


Voici un exemple de segment de 
code extrait d'un programme 
faisant appel à la routine 
TEFromScrap : 


BSR TEFromScrap 
BEQ.S Erreur 
Suite 
Erreur TST —26(SP) 


BEQ.S Suite 
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MOVE -26(SP),AdrEr 
Routine 
TEToScrap 


TEToScrap, vous l'aurez deviné, 
effectue l'inverse de la tâche 
assurée par TEFromScrap, soit le 
passage du presse-papiers 
TEScrap vers le presse-papiers 
DeskScrap. 

L'appel de la routine se fait par : 


BSR  TEToScrap 


Les registres sont préservés et 
leur contenu restitué. Au retour, 
contrairement à la routine 
TEFromSrap, le bit Z du registre 
d'état est positionné à 1 s'iln'y a 
pas eu de problème. Sinon, le bit 
Z est à O et votre application et/ou 
accessoire peut trouver, tout 
comme pour la routine 
précédente, un éventuel code 
d'erreur OSErr dans -26(SP) 


Exemple de segment de code 
pour la routine TEToScrap : 


BSR TEFromScrap 
BNE.S Erreur 
Suite 


Erreur MOVE -26(SP),AdrEr 


Quand utiliser les 
routines ? 


La programmation du Macintosh 
impose aux ‘développeurs un 
certain nombre de règles précises 
décrites dans ‘Inside Macintosh’ 
au chapitre ‘Macintosh User 
Interface Guidelines’. Ces 
conventions, lorsqu'elles sont 
respectées, autorisent la mise au 
point de programmes que 
l'utilisateur fmal pourra utiliser de 
façon quasi-instinctive. Par 
exemple, en tant qu'utilisateurs, 
nous trouvons qu'il n'y a rien de 
plus désagréable que d'utiliser un 
programme qui n'emploie pas les 
‘équivalents claviers Com- 


mande-X, C et V pour ‘Couper’, 
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‘Copier’ et ‘Coller’. Nous avons 
donc tout intérêt à respecter les 
conventions Macintosh, même si 
elles nous paraissent lourdes, 
voire même contraignantes. 


Démarrage de 
l'application 


Il serait tentant de transférer 
immédiatement le contenu de 
DeskScrap dans TEScrap mais, si 
nous voulons bien faire les 
choses, c'est un peu plus 
compliqué. Il convient tout 
d'abord de s'assurer de la 
présence de texte dans 
DeskScrap. Pour cela, on peut 
utiliser la routine GetScrap en 
passant O dans la pile à la place 
du Handle : 


SUBQ #4,SP 

CLR.L -(SP) 

MOVE .L #'TEXT',-(SEP) 
PEA scratch8 
_GetScrap 

MOVE.L (SP)+,D0 


En passant une valeur nulle (NIL 
pour les Pascaliens) dans la pile 
(CLR -(SP)) à la place d'un 
Handle sur le presse-papier 
TEScrap, la routine GetScrap 
retourne : 


1 -102 siil n'y a pas de donnée 
de type ‘'TEXT (notons bien 
qu'il ne s'agit pas là d'un 
code d'erreur : DeskScrap 
peut très bien contenir à ce 
moment des données de type 
PICT): 

2 une autre valeur négative 
correspondant à une erreur de 
type OSErr en cas de 
problème au niveau du 
système d'exploitation ; 


3 la longueur du presse-papiers 
si la valeur est positive. 


Dans les deux premiers cas, il 
convient de rendre invalide 
l'article ‘Coller’ du menu 
‘Édition’ pour que l'utilisateur ne 
puisse pas croire qu'il peut coller 
quelque chose alors qu'il n'y a 
rien dans TEScrap. On pourrait 
donc obtenir à ce moment un 
menu ‘Édition’ comme celui-ci : 


Edition 









Effacer 


En fait, si l'on veut vraiment bien 
faire les choses, les menus 
‘Couper’ et ‘Copier’ ne devraient 
être valides que s'il y a quelque 
chose prêt à être copier ou couper 
ou, en d'autres termes : si 
quelque chose est sélectionné. 
Ceci est rendu possible par la 
présence des champs selStart 
(début de la zone sélectionnée) et 


selEnd (fin de la zone 
sélectionnée) situés dans 
l'enregistrement du texte 
(TERec). 


MOVEA.L teHandle (AS),A4 
MOVEA.L (A4),A4 


CMP selStart (A4), 
selEnd(A4) 
BNE TexteSelectionne 


En ce qui concerne le second cas, 
il est recommandé d'afficher une 
fenêtre de type ‘alerte’ afin 
d'informer l'utilisateur en lui 
indiquant, en fonction du code 
OSErr retoumé, quel est le 
problème rencontré. 


Pour le troisième cas, il convient 
de valider l'article ‘Coller’ du 
menu ‘Édition’, ce qui pourrait 
donner un menu comme celui-ci 
(il n'est pas indispensable de faire 
des menus aussi délirants !) : 
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4 Couper %H 


“À copier æc 


Coller  XU 


Effacer 





Il n'est pas pour autant 
indispensable d'appeler la routine 
TEFromScrap immédiatement. 
En effet, si l'utilisateur coupe ou 
copie du texte dans l'application 
avant le premier ‘Coller’, le 
transfert d'inforinations aura été 





inutile. De plus, il convient de 
garder intact le contenu de 
DeskScrap pour le cas ou il n'y 
aurait aucun ‘Couper’ ou ‘Coller’ 
entre le démarrage de 
l'application et l'ouverture d'un 
accessoire de bureau, ou encore 
le démarrage de l'application et sa 
fermeture. 

En résumé : après le démarrage 
d'une application, il faut appeler 
TEFromScrap seulement lors du 
premier ‘Coller’, et seulement si 
il n'y a pas eu de ‘Couper’ ou 
‘Coller’ auparavant (chinois). 







Annuler 


Effacer 


Ouverture ou sélection 
d'un accessoire 


Deux cas sont ici envisageables : 


1 Iln'y a pas eu de ‘Couper’ 
ou ‘Copier’ depuis le 
démarrage de l'application ou 
le dernier retour depuis un 
accessoire de bureau ; 

I y a eu au moins un 
‘Couper’ ou ‘Copier’ depuis 
le démarrage de l'applicaton 
ou le dernier retour depuis un 
accessoire de bureau. 


Il faut avant tout faire une 
opération qui n'a pas de rapport 
direct avec le contenu des 
presse-papiers : la validation des 2 
menu ‘Annuler’, ‘Couper’, 
‘Copier’, ‘Coller’ et ‘Effacer’ 
afin d'autoriser leur utilisation 
éventuelle par l'accessoire : 


Routine TEFromScCrap (‘beskScrap' vers ‘TEdit') 


: Trap et adresses utilisées 









Bans un fichier ressource" 1 





OR = SCraR Pere CURE JET dieelg, nous — 
Sao FOY as treuverions ici les ressources de Pere 
TeScrpLength EQU SAB0 type WIND, MENU, DITL, STR, Clipboard File 
teScrpHandle EQU SAB4 à DLOG, etc. 
TEFromScrap 
MOVEM.L A0-A1/D0-D2, -(SP) ; Sauvegarde les registres au sommet de la pile. 
SUBQ #4, SP ; Réserve 4 octets au sommet de la pile pour la 
; valeur retournée par la routine GetScrap. 
MOVE.L teScrpHandle,-(SP) ; Empile le ‘Handle’ du presse-papier des 
; routines d'édition de texte (TEdit). 
MOVE .L #'TEXT',-(SP) ; Empile le type de donnée requise (texte). 
PEA Scratch8 ; Empile l'adresse du tampon de 8 octets. 
_GetScrap ; _GetScrap retourne une valeur 
; positive = longueur du presse-papier ; 
; —-102 = pas de données du type demandé ; 
MOVE.L (SP)+,D0 ; autre négative = OSErr (erreur syst. exploitation). 
BPL.S FinFrom ; Si OK, on conserve la valeur placée dans DO. 
MOVEOQ #0,D0 ; Sinon on indique une longueur nulle. 
FinFrom ; La variable globale TeScrpLength, qui indique 
MOVE D0, TeScrpLength ; la longueur du presse-papier des routines 
; d'édition, est mise à jour. 
MOVEM.L (SP)+,A0-A1/D0-D2 ; Valeurs initiales dans les registres. 
RTS ; Retour au programme appelant avec le Bit Z à 1 


; si il n'y a rien dans le presse-papier. 
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Quel que soit le cas concerné, il 
faut stocker à une adresse 
quelconque (mais connue !), la 
valeur courante de scrapCount. 
Ceci nous pennettra de savoir 
ultérieurement si le contenu de 
DeskScrap a été modifié par 
l'accessoire. Pour obtenir la 
valeur de ce compteur, on peut 
soit lire le contenu de la variable 
globale scrapCount ($968) : 


MOVE scrapCount, Compt (AS) 


soit lire la zone scrapCount de 
l'enregistrement ScrapStuff dont 
l'adresse de base est retournée 


par la routine _InfoScrap : 

SUBQ +4,SP 

_InfoScrap 

MOVEA.L (SP)+,A0 

MOVE scrapCount (A0) ,Compt {AS) 
: ScrapCount-8 


Pour le premier cas (1), on se 
contentera de ne rien faire (mis à 
part le stockage du contenu du 
compteur). 


Pour le cas (2), il faudra faire 
appel à la routine TEToScrap afin 
de passer le texte copier ou 
couper à l'accessoire. 


Passage d'un | dau 
accessoire à 
l'application 


Le problème (si tant est que 
problème il y a) est le même que 
lors du démarrage de 
l'application. Nous disposons 
toutefois d'un moyen simple pour 
savoir si le contenu de DeskScrap 
a été modifié depuis que l'on a 
quitté l'application : nous avons, 
lors de l'ouverture ou de la 
sélection de l'accessoire, stocké 








Routine TETOoScrap (TEaïit vers ‘DeskScrap) 


; Trap et adresses utilisées 








. Trap _GetHandleSize $A025 
. Trap _HLock $A029 Dans un fichier “ressource” à 
.Trap _HUnLock $A02A une véritable . JAI, De — 
trouverions ici les ressources de GT eg 
ne A > a type WIND, MENU, DITL, STR, Y SRI 
TeScrpLength EQU SAB0 DLOG, etc. 
teScrpHandle  EQU SAB4 
TEToOScrap 
MOVEM.L A0-A1/D0-D2,-(SP) ; Sauvegarde les registres au sonrmet de la pile 
SUBQ #4,5P ; Réserve 4 octets au sonmet de la pile pour la 
; valeur retournée par la routine ZeroScrap. 
_ZeroScrap ; Initialise le presse-papier du bureau et 
; incrémente ScrapCount de 1 (voir texte). 
ADDQ #4,5SP ; On n'utilise pas la valeur retournée. 
MOVE .L teScrpHandle,A0 ; Place le ‘Handle’ du presse-papier des 
; routines d'édition de texte dans A0. 
SUBQ #4,5SP ; Réserve 4 octets au sommet de la pile pour la 
; valeur retournée par la routine PutScrap. 
_GetHandleSize ; Retourne la longueur du presse-papier des 


; routine d'édition de texte dans D0. 
MOVE.L DO,-(SP) ; Empile la longueur. 


__HLock ; Empêche le déplacement du presse-papier. 
MOVE.L #'TEXT',-(SP) ; Empile le type de donnée à passer. 
MOVE .L (A0),-(SP) ; Empile le pointeur sur le texte à passer. 
__PutScrap ; Transfert du texte. 
MOVE .L teScrpHandle,A0 ; Place le ‘Handle’ du presse-papier des 

; routines d'édition de texte dans A0, et 
__HUnLock ; _HUnLock autorise ies mouvements de mémoire. 
MOVE. L (SP)+,D0 ; Résultat de PutScrap dans DO pour 

; positionner le bit Z : à L si OK. 
MOVEM.L (SP)+,A0-A1/D0-D2 ; Valeurs initiales dans les registres. 
RTS ; Retour au programme appelant avec le bit Z à 


; si l'opération s'est bien déroulée. 


(OSErr) et pour les deux 
le code de l'erreur se trouve, lorsque l'on est revenu au prograrme 
en -26(SP) sur deux octets. 


; En cas d'erreur au niveau du système d'exploitation 
; routines/, 
; appelant, 
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la valeur courante de scrapCourit. 
Or, sans trop entrer dans les 
détails, on peut dire que ce 
compteur est incrémenté de 1 à 
chaque fois que l'on met quelque 
chose dans DeskScrap. Donc, si 
le contenu actuel de scrapCount 
est différent de son contenu avant 
appel de l'accessoire, le contenu 
de DeskScrap a été modifié, ce 
qui doit bien sûr être pris en 
compte par notre application. 
SUBQ #4,SP 

InfoScrap 
MOVEA.L (SP)+,A0 





CMP scrapCount (A0),Compt (AS) 
BNE Modif 
BRA PasModif | _) 

LES MES 
Fermeture de SR 
l'application D 


logiquement le même que dans le 
cas “Ouverture ou sélection d'un 
accessoire”, bien qu'il ne soit pas 
nécessaire de se préoccuper de 
l'état du menu ‘Edition’ ni du 
stockage de la valeur courante de 
scrapCount qui, de toute manière, 
ne sera pas réutilisée. 


En cas d'écriture 
d'un accessoire 

de bureau 

Dans ce qui a précédé, nous 
avons pris pour exemple le cas 
d'une application, mais tout ceci 


est réversible et s'applique aussi 
aux accessoires de bureau : 


+ le paragraphe “démarrage de 





l'ouverture de l'accessoire, 
provoqué depuis l'application 
par la routine OpenDeskAcc 
(routine Open du driver) ; 


le passage de l'application à 
l'accessoire correspond ici à un 
événement activateEvt avec le 
bit activeFlag à 1 ; 


le passage de l'accessoire à 
l'application correspond à un 
événement activateEvt avec le 
bit activeFlag à 0 ; 


la fermeture de l'application 
correspond à la fermeture de 
l'accessoire, provoquée depuis 
l'application par la routine 

CloseDeskAcc (routine Close 


du driver). ä 


Le doit être l'application” correspond à 


DISQUETTE MACINTOSH 24 


Les abonnés aux disquettes “Pom's Macintosh” sont vraiment des veinards : en effet, la disquette 24 
comporte un utilitaire indispensable à tous ceux qui programment - ou même utilisent - le Macintosh. Il 
s'agit de REdit. Ce logiciel est un éditeur de ressources évolué qui autorise l'édition directe des icônes, 
menus, fenêtres, boîtes à dialogue, chaînes de caractères, etc. De plus, c'est aussi un décompilateur 
capable de faire l'inverse de ce que fait RMaker : vous lui indiquez une ressource, il vous en fait un 
source au format RMaker. Pour 80,00 F (66,66 F pour les abonnés)... d'autant plus que comme 
d'habitude, l'acquisition de la disquette d'accompagnement vous évite la saisie des programmes et 
sources listés dans ce numéro ! 


ATTENTION : CE LOGICIEL, ENTRE DES MAINS INEXPERTES, PEUT ÊTRE EXTRÊMEMENT 
FCASSANT” ; IL EST RECOMMANDÉ DE TRAVAILLER UNIQUEMENT SUR DES COPIES. 


r \r 
é Fichier Carnet Edition Click Région Pays 


traitement 


é File Edit 





abcdefghijkimnopa[r]stuuwxuyz 


Téléphone: |Adresse : 


88 321212 |km 13, route de Longwiller 
[ {Strasbourg 67000 





Composeur—| 





precédente 


Francophonisme torride ? 


Font/DA Mover version française a perdu les lettres bjkmogvw yz ! Les auteurs anglophones avaient en effet trouvé, 
à titre d'exemple, une phrase courte représentant f ert bien l'alphabet : ‘The quick brown fex jumps over the lazy 
dog”, phrase malencontreusement treduite par : ‘Le renard agile a sauté au-dessus du chien paresseux...” , autrement 
dit il ne s'agit ni d'une traduction littérale, ni d'une représentation complète de l'alphabet... Qui nous donnera un bon 
équivalent français de cet exemple classique chez les rypographes ? 
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LE BUNDLE ET LE 5 
FINDER (HISTOIRETRISTE) > 
MARIANNE SUTZ . 


Ce n'est un secret pour personne, 
le Macintosh, quel que soit le 
langage de programmation 
employé, utilise un grand nombre 
de ‘ressources’ pour la définition 
des menus, fenêtres, messages 
d'erreur, icônes, etc. En fait, 
presque tout ce qui apparait Sur 
l'écran du Mac est stocké dans 
des fichiers ‘ressource’. Ceci 
facilite grandement le travail des 
programmeurs (qui peuvent, par 
exemple, modifier la taille d'une 
fenêtre sans toucher au 
programme lui-même) et des 
traducteurs (qui utilisent des 
utilitaires du type “REdit” pour 
‘localiser’ les messages, formats 
d'affichage des nombres, formats 
d'affichage des dates et heures...) 


Dans les ressources de chaque 
application, nous trouvons une 
constante : la partie destinée à 
infonner le “Finder”. Nous y 
trouvons le nom de l'application, 
le “créateur” et le “type” (nous 
avons déjà eu l'occasion d'en 
parler dans de précédents 
numéros), la signature de 
l'application, et une ressource de 
type “Bundle”. 


Cette dernière, qui contient la liste 
des identificateurs d'icônes et la 
liste des références des fichiers, 
semble justment poser problème 
à nombre de nos lecteurs. Il est 
en effet certain que la mise en 
ordre des types ICN# et FREF 
n'est pas complètement 
instinctive. C'est pourquoi nous 
vous proposons une ressource de 
base, autour de laquelle vous 
pourrez construire la ressource de 
votre application. Que cette 
dernière soit écrite en assembleur, 
en Pascal... n'a pas d'importance 
puisque ces langages sont livrés 
avec le compilateur de ressource 
“RMaker”, auquel est destiné le 
fichier listé ci-contre. 
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ID=128 !? 1D-129 
Type APPL : Type TEHT 


ichier Démo.R 
Exemple de ‘ressource’ pour une application 








Démo ::Nom de l'application 
APPLPoms ;:Créateur et type 


Type Poms = STR ;;Signature de l'application 

0 ;sidentificateur=0 par convention 
* La chaîne suivante contient le nom de l'application, 
* le numéro de version, et la date de création. 

Démo - V 2. à la ligne - 22:58:14 - 10.05.86 


* Dans un fichier "ressource" destiné à une véritable 
* application, nous trouverions ici les ressources de 
* type WIND, MENU, DITL, STR, DLOG, etc. 


* Ressource de type “Bundle”. Elle contient les 
* informations pour le Finder. 
Type ENDL 

:128{32) ;s:1dentificateur de la ressource 
* (32) est l'attribut de la ressource 
* ce qui correspond à "“purgeable" 

Pons 0 ;: Signature et identificateur 
* Identificateurs des icônes représentant l'application 
* et les fichiers qu'elle pourrait créer. 

ICN# 

D 128 1 12912" 130 
* REFérence des Fichiers 

FREF 

0 126: Te129) 241830 





Type FREF ;sPour l'icône liée à l'application 
, 128 (32) ;::Type de fichier = APPL 
APPL 0 ;:1D 0 pour la liste des icônes 

Type FREF ::Pour l'icône du ler type de fichier : 
7129182) ;:: Type de fichier = TEXT 
TEXT 1 ;:: ID 1 pour la liste des icônes 

Type FREF ::Pour l'icône du 2ème type de fichier : 
,130 (32) :: Type de fichier = TXTE 
TXTE 2 ;;:1D 2 pour la liste des icônes 


* Béfinition des icônes de l'application et des deux 
* types de fichiers générés par cette dernière 
TYPE ICN# = GNRL ;; Type liste d'icônes 
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* Icône de l'application 













































> 128 (32) ss:identificateur de la liste 
2 ::Nombre=2 (icône et masque) 
00000000 78F3DD86 45099248 78F31044 me, jante, me pee ee 
40030002 41FB7E0C O7FFEF80 OF4BE860 ET Far. .. 
1FFB0490 1DB68498 3FDFF004 3EF8D00C Ë A alt 1, 
3ACB0004 7DFD6002 7FDA0042 7FF90006 RE fe Die 
7BFCO00A 7BEC0002 7FEC0026 7FFC4022 HRRRLE e 
7F640004 3FFD101C 3FB38004 3FFE0028 Ë ess = 
1FB6C028 1FF7D810 OFFCC120 079F98C0 RE PS 
03FB7300 00FF7E00 001FF000 00000000 bn 2 
* 
* Masque 


FDFFFFCEF KDFFFEFEF FEFFFFFE EFFFEFFF 
FFFFFFFF EYFFFFOF EFFFFFFE IFFFFFFU 
SFFFFFF8 SFFFFFFC TEFFFFFFE 7FFFFFFE 
7FFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FEFFFEFFE FFFFEFFF FFFFFFFF 
FFFFFFFE JFFFFFFE JFFFFFFE 7FFFFFFC 
3FFFFFFC 3FFFFFF8 I1FFFFFFO OFFFFFEO 
O7FFFFCO O3FFFF00 OOFFFEOO0 0O01FF000 


* Icône du ler type de fichier (TEXT) 
,129(32) ;s1dentificateur de la liste 
2 ; :Nombre=2 (icône et masque} 
OFFF0000 08018000 0B014000 0A81E000 
OB6EA000 OA6EA000 F8002000 8BF7A000 
B8002000 AB7FF800 B8400C00 ABD87FF8 
8854400C BBDB580A 8853540F BACO5B75 
885ED375 BBC04001 885BDBED B8404001 
8FDF5SBFD B7C04001 8057DDDD BEC04001 
80S5E5BFD 80404001 FFCFDEFD 00404001 Us 
00405EDD 007FC001 00004001 O0007FFF Émpenmmems 
X 
* Masque 
OFFFO0000 OFFF8000 OFFFCO00 OFFFEOO0 
OFFFEO00 OFFFEOO00 FFFFEO00 FFFFEO000 
FFFFEO000 FFFFF800 FFFFFCOO FFFFFFF8 
FFFFFFFC FFFFFFFE FFFFFFFF FFFFFFFF 
FFFFEFFF FFFFFFFE FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFE FFFFFFFEF FFFFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF OO7FFFFF 
OO7FFFFEF OO7FFFFEF O00007FFF O0007FFF 



















* Icône du 2ème type de fichier (TXTE) 


,130 (32) ;s1dentificateur de la liste 
2 ::Nombre=2 (icône et masque} 
OFFFO0000 08018000 OBFF4000 OBFFEO000 = 


OBFFA000 OBFFAO000 F8002000 8BFFA000 
BA00A000 BBFFF800 B8400C00 BBDFFFF8 
8ASFCOOC BBDFDFFA ASSFDFFF BBCOSFFD 
8BDFDFFD BBDO04001 ABDFDFFD B8405005 
8FDFDFFD BFDO4001 BFDFDFFD BFCO05005 
BFDFDFFD 805FCO001 FFDFDFFD OOSFDFFD 
00405FFD 007FDFFD 00004001 O0007FFF 


* 


* Masque 

OFFF0000 OFFF8000 OFFFCO00 OEO1E000 Ë 
OEO00E000 OFFFEO000 FFFFEOO00 FFFFEO000 H 
FFFFEO00 EFFFF800 EFFFFCOO FFFFFFF8 Ë 
FFFOTFFC FFFO/FFE FFFFFOOF FFFFFO007 
FEYFFFFF FEYFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFF EO7FFFFF EO?FFFFF 
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5) 


Dans le cas présent, on a supposé 
que l'application (icône en fonne 
de pomme, type APPL) a la 
possibilité de générer deux types 
de fichiers : le type TEXT et le 
type TXT@ ; vous pouvez bien 
sûr modifier les types et la forme 
des icônes, soit en changeant 
directement les valeurs dans le 
source, soit, après compilation du 
source proposé, en éditant les 
icônes avec un utilitaire comme 
“REdit”. 


Si votre application ne génère pas 
de fichiers, supprimez les types 
ICN# ID 1 et 2 et les types FREF 
ID 1 et 2. Si elle ne génère qu'un 
fichier, supprimez seulement 
ICN# ID 1et FREFID 1. 


Relations entre les 
types de fichiers 
et le Finder 


Lorsqu'un utilisateur du 
Macintosh sélectionne un ou 
plusieurs fichiers et demande 
‘Ouvrir’ ou ‘Imprimer’ dans le 
menu ‘Fichier’ ou, tout 
simplement, fait un double click 
sur l'icône d'un fichier, 
l'application concernée est chargé 
et doit aller lire, dans une zone 
que nous allons détailler sans 
tarder, des informations sur ce 
qu'a demander l'utilisateur. 


La variable globale 
AppParnHandle ($AEC) contient 
un Handle (adresse du pointeur) 
sur une Zone de mémoire 
relogeable contenant les 
informations recherchées : 


MOVEA . L AppParmHandle,A2 
MOVEA.L (A2), A2 


TST (A2) 

BNE Imprimer 
SUBQ #1,2 (A2) 
BGT Plusdei 
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[ra réf quvoume bi] 


long. du nom de fichier (8 bits) 


caractères du nom de fichier 


Zone ‘Message’ 


- sielle contient 0, l'utilisateur a 
demandé l'ouverture d'un ou de 
plusieurs documents ; 


. sielle contient 1, l'utilisateur a 
demandé l'impression d'un ou 
de plusieurs documents. 














J1U91} 191L131d 


—— 






18191} 191U3P 






Zone ‘Compteur’ 


Elle contient le nombre de 
documents à ouvrir ou imprimer. 
Si cette zone contient O, cela 
indique que l'utilisateur a 


FFFFFFFF FFFO/FFEF FFFO7FFF 007FF007 
O007FF007 OO7FFFFEF O00007FFF 00007FFF 


* Ajout du code objet de l'application 
* Le fichier Démo.Code est obtenu avec 
"Linker" de la manière habituelle 





[3 
el 


D 


+ le 

* 

4 [ 

« 

# Démo 

æ /Output Démo.Code 
Æ /Type ‘TEMP' 

* 

dé $ 


INCLUDE Démo.Code 


seulement demandé l'ouverture 
de l'application. 


Les zones suivantes apparaissent 
autant de fois qu'il y a de 
documents à ouvrir ou à 
imprimer. 


Zone ‘Numéro de référence 
du volume’ 


Ce numéro est attribué par le 
gestionnaire de fichier (routine 
_MountVol). 


Zone ‘Type de fichier? 


OSType. Dans le cas d'un 
programme utilisant les res- 
sources listées ci-contre, il 
pourrait s'agir du type ‘TEXT" 
ou ‘TXT @’ 


Zone ‘Numéro de version 
du fichier”? 


Par convention, toujours 0. 
Zone ‘Un octet non utilisé’ 


Zone ‘Longueur du nom’ 
Surun octet. 


Zone ‘Nom du fichier? 


Chaîne contenant les caractères 
composant le nom du fichier, 
plus un caractère nul si le dernier 
caractère du nom se trouve sur 
une adresse impaire (dans le cas 
où le nombre de caractères dans 


le nom est pair). à 





Compatible 
incompatible ? 


Voici la dernière liste des problèmes 
de compatibilité avec le Macintosh 
Plus répertoriés par Apple et revus 
par Pom's. Tout d'abord, ii faut 
parler du classement des 


programmes en Cinq Cafépories. 


Catégorle O0 regroupe les logi- 
ciels sans problème, ou possédant 
ue versioa MacPlus. 

Catégorie 1 logiciels qui néces- 
sitent des System et Finder mis au 
goût du jour. 

Catégorie 2 logiciels compa- 
tibles avec cependant quelques 
Catégorle 3 logicicls allergiques 
à la gestion de ficluers hiérarchique. 


Catégorle 4 les incompatibles. 
Les remèdes... 


Pour les cat£pones 1et2: 


+ Logiciel PE cn : transférer le 
système du acPlus sur une 
disquette B00Ko, ainsi que tous les 
fichiers liés au logiciel, et enfin 
copier à l'aide du F/DA Mover du 
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MacPlus les polices et accessoires 
éventwellementoécessasires. 


+ Logiciel protégé : démarrer la 
disquette système du MacPlus et 
lancer l'application Installer, metire 
dans le second leckur la disquette du 
logiciel, sélectionner l'option 
“Macintosh Plus System VI.0” et 
cliquer daps ‘{nstaller”. S'il n‘y a pas 
assez de place pour effectuer 
l'adaptation, il vous faut isoler sur 
une disquette 800K 0 le système et le 
Finder, que vous adzpiez comme 
pour un logiciel non protégé. 

Pour la catégorie 3, il convient de 
travailler sans utiliser de dossiers 
Pour l: catéporied, comme 
pour les logiciels protégés 
(catégories 1 et 2), mais en chquant 
dans l'option “Clavier Universel’ au 
lieu de l'option ‘Installer’ : ainsi, 
vousadaptez le clavier sans modifier 
lerest du sysième. 


Le classement. 
Catégorie G 


GestionClients, Gestion Comptable, 
Gestion Simil L2C, MacListe 2.5, 
MacTap, Maestria, Medimac, 
Talkie-Mac version 2. 

Catégorie 1 


4ème dimension version 2.0, ABC 


Base version 14F, Accessory Pack, 
AD MacFichier, Addenda Excel, 
Airborne, Challenger, Clic Fiche, 
Click Art, olor Print, 
Communication Edge, Compta Simil 
1.2C, Da Vinci, Esay 3D, 
Enchanter, Excel, ExperLogo 1.1, 
FactFinder, Fokker Triplan, 
FontDA Mover 3.1, Fontastic, 
Gestion Devis 2.01, Griffin 
Terminal, Lode Runner, Logi Font, 
Mac 2392, MacDraw, Macintosh 
Pascal 1.0, MacPaint, MacProject, 
MacSAV, Mac Space, MacSpelk, 
MacTell 12.1, Mac The Knife (3 
disqg.), MacWrite, Magic, 
Management Edge, Megaform 1.0, 
Microsoft Chart 1.0, Microsoft File, 
Mind Prober, Modem Universel 
Apple, Negociation Edge, Paie Mac, 


PFS (File, ex EN Picture Base, 
Pyramn'de, Quick Paint, Quick Word, 
Ready Set Go 2.1, Remember, Sales 
Edge, Sargon Il, SciFont. Silicon 
Press, SoundCap, SiarCross, Stat 
Works, Suspended, Tech Font, TK! 
Solver, Transbase, Versaterm, 
Videoworks, Zork (3 disq.). 
Catégorie 2 

ist Base 2.1, ConcertWare+3.0, CX 
Base 300, CX Base 500, CX Base 
M24, DB Master, Fluent Fonts, 
Jazz, Le Tube …, Mac Tracks, Mac 
Vision, Omnis 3, PageMaker 1.1, 


Switcher 4.4, Telemaac Bull, Telemac 
IBM, ThinkTank, ThunderScan, 
Word. 


Catégorle 3 


Assembleur 6800, Basic 2.0, Col 
Chant 20, Crunch 1.0, Dollars and 
Sense, Filevision 10, Le Lisp, Lisp 
Expert Kit, Mac C, MacDent, 
MacDraft, MacForth, MacFortran, 
Melusine, Orthogiciei, Overvue 2.0, 
Slide Show Magician. 

Catégorie 4 


Aztec C 1.06G, ChipWits, CTickOn 
Worksheet, Compta Mac, 
MacAdvantage, Mac Agenda, 
MacCommand, Mac C ypt 1, 
MacExpert, Mact_i on, Mac Manager 
1.1, MacPublisher 1.31, 
MacTerminal 1.0, MacBooster, 
MegaFiter 1.01, MegaMerge 2.0, 
Maitiplan, MusicWorks, Quztet. 
Smooth Talker 20, Strategic 
Conquest, Through the Looking 
Glass, Wizardry et la plupait des 
jeux non listés dans les catégories 


précédentes. 


Dans le prochain numéro, nous nous 
attacherons au particularisme des 
certains programmes, lels que : Basic 
2.0, Jazz, MacDraft, MacTerminal 
10, MacTracks, Microsoft File, 
Multiplan, Omais 3, 
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ANALYSE MULTICRITÈRE 


Nous vous proposons un 
programme d'aide à la décision 
écrit en Applesoft, et fonctionnant 
indifféremment sur Apple J[+, 
Ie, [le+ ou //c. 


Théorie 


Les méthodes d'analyse multi- 
critère servent à analyser et 
comparer, en fonction de 
plusieurs critères, un certain 
nombre de décisions possibles, 
que nous appellerons des 
"projets". Les critères d'évalua- 
tion sont souvent conflictuels : 
ainsi, pour prendre un exemple 
simple, une entreprise cherche en 
même temps à maximiser son 
profit et sa part de marché, ce qui 
— au moins à court terme — est 
contradictoire. 


Les méthodes d'analyse multi- 
critère utilisent deux types 
d'information : un jeu de notes 
(une note pour chaque projet en 
fonction de chaque critère) et une 
série de “poids” représentant 
l'importance relative de chaque 
critère. 


La méthode Electre 11, sur 
laquelle repose le programme 
présenté ici, procède de la façon 
suivante : tous les projets sont 
comparés deux à deux, à partir de 
quoi on obtient deux classements 
des projets, permettant ainsi une 
double perspective sur l'ensemble 
des projets. 


Comparaison de deux 
projets X et Y 


Pour chaque paire de projets X et 

Y, on calcule : 

P+(X,Y) somme des poids des 
critères selon lesquels 
X est meilleur que Ÿ 


P"(X,Y) somme des poids des 
critères selon lesquels 
X est aussi bon que Y 
P'(X,Y) somme des poids des 





critères selon lesquels 
X est moins bon que 
Y 


X est meilleur que YŸ pour un 
critère quand l'écart entre les 
notes selon ce critère est 
favorable à X et dépasse le seuil 
d'indifférence. Le seuil d'indif- 
férence d'un critère, notion 
propre à Electre, est l'écart 
maximum que l'on peut avoir 
entre les notes accordées selon ce 
critère sans que l'on puisse dire 
que cet égard justifie une 
préférence en faveur du projet le 
mieux noté, 

On calcule de même un indice de 
concordance. 


Indice de concordance 


L'indice de concordance C(X,Y), 
défini ci-dessous, sera d'autant 
plus proche de 1 que la 
préférence vers X par rapport à Y 
sera plus nette. 

C(X,Y) = [P+(X,Y)+P (X, Y)1 / 
[P*(X,Y)+PT(X,Y)+PT(X, Y)] 


On se définit trois seuils de 
concordance C1, C2 et C3, tels 
que : 

1>C1>C2>C3>0 


les valeurs standards proposées 
par défaut par le programme 
Electre II étant 3/4, 2/3 et 3/5. 


Seuils de discordance 


On définit de même deux seuils 
de discordance D1 et D2, tels 
que : 


0 <DI1 < D2 


Surclassement fort 


On dira que X surclasse 
fortement Y si les conditions 
suivantes sont remplies : 


soit + P+(X,Y) 2 P(X,Y) : le 
poids des critères selon 


Serge Cattan 


lesquels X est meilleur 
que Ÿ dépasse celui des 
critères où l'inverse est 
vrai ; 

+ C(X,Y) 2 Cl : il faut 
atteindre ou dépasser le 
premier seuil de 
concordance ; 

* pourtout critère où Ÿ est 
meilleur que X : Note(Y) 
— Note(X) < D2. 

soit + P*(X,Y) 2 P"(X,Y) 

° C(X,Y) 2 C2 

+ pour tout critère où Ÿ est 
meilleur que X : Note(Y) 
- Note(X) < DI. 

11 y aura donc surclassement fort 
dans l'un des deux cas suivants : 
être plus exigeant sur la 
concordance, ou plus sévère sur 
la discordance. 


Surclassement faible 


On dira que X surclasse 
faiblement Y si les conditions 
suivantes sont remplies : 


+ P+(X,Y) 2 P(X,Ÿ) 

+ C(X,Y) 2 C3 

* pourtout critère où Ÿ est 
meilleur que X : Note(Y) 
— Note(X) < D2. 


En résumé, que le surclassement 
soit foit ou faible, X surclassera 
Y si: 

+ d'une part, le poids 
cumulé des critères où X 
est meilleur que Ÿ est 
suffisamment grand, 
relativement à celui des 
critères où l'inverse est 
Vrai ; 

+ d'autre part, il n'existe 
pas de critère selon 
lequel Ÿ est franchement 
meilleur que X. 


Deux méthodes 
de classement 


Electre II fournit comme résultat 
deux classements. 
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Dans le classement direct, les 
éventualités sont rangées de telle 
façon qu'une éventualité X 
précède une éventualité Y si et 
seulement si X est surclassé par 
moins d'éventualités que Y. 


Dans le classement inverse, les 
éventualités sont rangées de telle 
façon qu'une éventualité X 
précède une éventualité Ÿ si et 
seulement si X surclasse plus 
d'éventualités que Y. 


Ces deux classements se réfèrent 
au nombre de surclassements 
forts. Les ex æquo éventuels sont 
départagés par le nombre de 
surclassements faibles. 


Le Programme 


Il comprend un menu de cinq 
rubriques. La première perinet de 
saisir le problème. La seconde 





permet de retrouver un problème 
préalablement sauvegardé sur 
disquette. La troisième autorise la 
modification d'une donnée. La 
quatrième donne accès à un mode 
d'emploi détaillé. Quant à la 
dernière, elle se charge du retour 


à l'Applesoft. ä 





Programme 


‘ANALYSE 


I =0 
410 NC = 


VAL (NC$): IF NC < 2 THEN 


PRINT "°UN°- 


CHIFFRE=De1eS,V,P,": GOTO 380 


GOTO 490 
===== DIM TABLEAU =======-=====7 


IF ME = 1 THEN RETURN 


450 DIM AC$ (NA), CRS$ (NC) ,PO (NC) 
460 DIM DO(NA,NC) ,NO(NA,2, 2),RA(NA, 3) ,NI (NA) ,NJ 


470 DIM PP(NA,NA),PM{NA,NA) ,DM(NA,NA}, RE (NA, NA, 
2) ,D1 (NC) , D2 (NC) , RS{NA, NA, 2} 


490 REM ====e2=-0om-nmmm======-===- ===> 





MULTICRITERE’  :? =" 
430 REM ======= 
Note : une puce (°) dans une chaîne de caractère 440 
symbolise un espace. 
100 REM RRRRRRRRRR RAR RAR RAR RAR RRRRRRRRRRRRRRR ht (NA) , NH (NA) 
Éhthhhttththhhhétiinih 
110 : 
120 REM CATTAN Serge ANALYSE MULTI 480 ME = 1: RETURN 
CRITERE 09/85 
130 : 500 REM SAISIE 
140 REM RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRE 510 HOME 


RLRLLLLSILLLEILLLLLLLZZ)] 


150 ONERR GOTO 3550 


GO TS ME 2 


170 D$ = 
180 HOME 
190 OINVERSE : PRINT SPC({ 40) 


CHR$ (4) 


200 PRINT "svesereeseeANALYSE-MULTICRITERE®"°e 570 


210 PRINT SEPC( 40) 
220 NORMAL 
230 POKE 34,4: VTAB 8 


duc . 540 


520 FOR I = 1 TO NA 
530 PRINT : PRINT "ACTIONeN{e";I;"o.coscostrs I 


NEXT I 


NPUT ACS$(I) 


550 FOR I = 1 TO NC 
560 PRINT : PRINT LEFTS (T$,40);: PRINT : PRIN 
T "CRITERE°N{-"plg"eseceouse";: INPUT CRS(I) 


AL (POS) 


INPUT "QUEL*ESTeSON*POIDS®?";POS$:PO(I) = V 


580 IF PO(I) = O THEN FLASH : PRINT "UN*CHIFFR 
Es*<>+0°S.V.P.": NORMAL : GOTO 570 
590 SI = SI + POI) 


FOR I = 1 TO NA 
PRINT : PRINT LEFTS$S (T$,40);: PRINT : INVE 
RSE : PRINT "*#*#*-ACTION-";AC$(I);":": NORMA 


240 PRINT "“ANALYSE®D'UN°PROBLEMEv+-v-e-—--5e]° 600 NEXT I 
250 PRINT "REPRISE-ANALYSE-EXISTANTE®‘*°--2>°2" 610 HOME 
260 PRINT "MODIFICATION*DONNEES °veveses—-—2>e3" 620 
270 PRINT "MODE+D'EMPLOI vevssssseucssse——3e4" 630 
280 PRINT "RETOUR-AU-BASICe--sssssssssse 3e 5" 
290 POKE 36,11: VTAB 18: INPUT “VOTRE-CHOIX°-?°" L : PRINT 
;RS$S:R = VAL ({R$) 640 FOR J = ] TO NC 


300 ON R GOTO 350,320, 330,4150,340 650 


310 GOTO 290 
320 GOSUB 3320: GOTO 680 


330 GOSUB 3320: GOSUB 2710: GOTO 680 660 


340 POKE 34,0: END 
350 HOME 


360 UVTAB 8: INPUT "NOM-DE- L'ANALYSE + (?-POUR°LE® 680 


CATALOGUE) °? "NES 
370 IF NE$ = "“?" OR LEN (NE$) 
3620: GOTO 350 


390 NA = 


CHIFFRE®>+1+S.V.P.": GOTO 380 
400 PRINT : INPUT "NOMBRE*-DE*CRITERES °?+";}NCS:S 
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VAL (NA$): IF NA < 2 THEN PRINT "-UN° 730 


PRINT : PRINT "QUEL*°EST-SA°NOTE°D'APRESeLE* 


CRITERE®": PRINT CR$(J),"'"-",;: INPUT DO$:DO( 


I,J) = 


VAL (DOS) 
IF DO(I,J} = O THEN FLASH : PRINT "UN°eCHIF 


FRE°<>+0°S.V.P.": NORMAL : GOTO 650 


670 NEXT J,I 


690 REM =mmmmmmmmm me 


O0 THEN GOSUB 700 





FOR I = 1 TO NA - 1 


710 FOR J = I + 1 TO NA 
380 PRINT : INPUT "NOMBRES °D'ACTIONSr-e?e":NAS 720 PP(I,J) = O:PM(I,J}) = 0 


FOR K = 1 TO NC 


740 DI = DO(I,K) :DJ = DO(J,K) 
750 IF DI > DJ THEN PP(I,J) = PP(I,J) + PO(K) 





760 
770 
780 
790 
800 
810 
820 
830 
840 
850 


860 
870 


880 
890 
900 
910 


920 


930 


940 
950 
960 


970 


980 
990 


1000 


1010 


1020 


1030 
1040 
1050 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


IF DI < DJ THEN PM{(I,J) 
NEXT K 

IF PMI{I,J) 
NEXT J,I 
HOME 


= PM(I,J) + PO(K) 


= O0 THEN PM(I,J) = 0.0001 








REM ==em=mmmmssssssssssssssssss 
EC = 0: IFR=2ORR = 3 THEN 850 

IF 8C = O0 THEN 870 

PRINT : PRINT : INPUT “VOULEZ-VOUS-MODIFIER 
LES + COEFFICIENTS* ++D1°ET+D2+7+";RES 

IF LEFTS (RES$,1) < > “O" THEN 950 


HOME : PRINT ‘“***eSAISIE-DES * SEUILS *DE°DISC 
ORDANCE°#*### 

PRINT LEFTS (T$,40); 

PRINT :; PRINT : FOR I = 1 TO NC 

PRINT "POUR*LE+CRITERE®";CR$(I): PRINT 
PRINT "Dl=-";: INVERSE : PRINT D1(I};t"ett;: 
NORMAL : INPUT "“°°"“;D1$: IF LEN (D1$) > 0 
THEN D1{(I) = VAL (DI$) 


PRINT "D2=e";: INVERSE : PRINT D2(Ij;"e";: 


NORMAL : INPUT “ve"*;D2$: IF LEN (D2$) > 0 
THEN D2(I) = VAL (D2$) 

IF D2(I) = < D1{(I) OR D1{(I) = < O0 THEN P 
RINT : FLASH : PRINT "IL-FAUT-0-<eD1e<+D2": 
NORMAL : PRINT : GOTO 900 

NEXT I 

HOME 

IFR =2ORR = 3 THEN PRINT : INPUT "VOUL 


EZ2-VOUS+eMODIFIER-C1,C2,C3+?";RE$: IF LEFTS 
(RE$,1) < > "O* THEN 1030 


HOME *: PRINT ''***e SAISIE" DES°SEUILSeDE*CONC 
ORDANCE » # ##e° 

PRINT LEFTS (T$, 40); 

PRINT : PRINT "COEFFICIENT®Cle?+";: INVERSE 


: PRINT C1;“*-";:: NORMAL : INPUT "ee"-C1$: 
IF LEN (C1$)] > O THEN C1 = VAL (C1$) 
PRINT : PRINT "COEFFICIENTeC2°?+";: INVERS 
E : PRINT C2;''e""*: NORMAL : INPUT "oo"-C2$: 
IF LEN (C2$) > O THEN C2 = VAL (C2$) 
PRINT : PRINT "COEFFICIENT-C3+?+";: INVERS 
E : PRIN11181811:@"#%112111111111111111281 
IF LEN (C3$) > O0 THEN C3 = VAL (C3$) 
IFCI1= > 1ORC2= >CIORC3 = >C20 
R C3 = < O THEN PRINT : FLASH : PRINT : P 
RINT "ILeFAUT+:Oe<eCe<°C2°<eCle<-1": NORMAL 
: GOSUB 3120: GOTO 970 

REM RELATIONS DE SURCLASSEMENT === 


HOME : FLASH : PRINT “--#***eLONGUEURS *°DES® 
CHEMINS*-ISSUS®**#*e0"": NORMAL 
K1 = l1:K2 = 2:BC = 1 

FOR I O0 TO NA 

FOR J = O TO NA 

FOR K = K1 TO K2 

RE(I,J,K) = 0 

NEXT K,J,I 

FOR I = K] TO NA - K1 

FOR J = I + K1 TO NA 
DM(I,J) = O:DM(J,1I) = 0 

FOR K = 1 TO NC 

DK = DO(J,K) - DOII,K) 

IF DM(I,J) = K2 THEN 1200 





= K2: GOTO 1200 
= ;K1 


IF DK > D2(K) THEN DM{(I,J) 
IF DK > D1(K) THEN DM(I,J) 





1200 
1210 


1220 
1230 
1240 


1250 
1260 
1270 
1280 


1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 


1400 
1410 
1420 
1430 
1440 


1450 
1460 
1470 
1480 
1490 
1500 
1510 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


1610 
1620 


1630 


1640 


1650 
1660 
1670 


1680 
1690 


IF DM(J,1) = K2 GOTO 1230 

IF DK < - D2(K) THEN DM(J,1] = 2: GOTO 12 
30 

IF DK < - D1(K) THEN DM(J,I) = K1 

NEXT K 

RP = PP(I,J) / PM{I,J):RM = K1 - PM(I,J) / 


SI: 0.0001 THEN 129 
0 

IF RP < K1 GOTO 1410 

IF RM < C1 GOTO 1320 


IF DM{(I,J) = K2 GOTO 1350 


IF RP = O AND PM{(I,J) 


RE(I,0,K1) = K1:RE(I,0,K2) = K1:RE(I,J,K1) 
= KI:RE(I,J,K2)] = K1:RE(0,J,K1) = K1:RE(0,J 
,K2) = KI 

NEXT J 

NEXT I 

GOTO 1530 

IF RM < C2 GOTO 1370 

IF DM(I,J) = O0 GOTO 1280 

GOTO 1380 

IF RP = K1 GOTO 1410 

GOTO 1290 

IF RM < C3 GOTO 1350 

IF DM(I,J) = K2 GOTO 1350 

RE(I,0,K2) = K1:RE(0,J,K2) = K1:RE(I,J,K2) 
= K1 

GOTO 1290 
RM = K1 - PP(I,J) / SI 

IF RM < C1 GOTO 1460 

IF DM(J,I) = K2 GOTO 1290 
RE(J,0,K1) = K1:RE(J,I,K1}) = K1:RE(0,I,K1) 
= K1:RE(J,0,K2) = KI:RE(J,I,K2) = KI1:RE(O,I 
,K2) = KI 

GOTO 1290 

IF RM < C2 GOTO 1490 

IF DM(J,1I) = O GOTO 1440 

GOTO 1290 

IF RM < C3 GOTO 1290 

IF DM{J,I}] = K2 GOTO 1290 

RE(J,0,K2) = K1:RE(J,I,K2) = K1:RE(0,I,K2) 
= K1 

GOTO 1290 

FOR I = 0 TO NA 

FOR J = O TO NA 

FOR K = K1 TO K2 

RS(I,J,K) = RE(I,J,K) 

NEXT K,J,I 

AZ = l:BZ = 0: GOSUB 2220 

NL = 0: HOME 

PRINT "LONGUEURS*+DES°CHEMINS+ISSUS *:": PRI 


NT : PRINT 

FOR I = 1 TO NA 

AS = AC$(NO(I,K1,K1)):GM = 
J):NH(I) = NO(I,K1,K1):NI(I) 


INT (NO(I,K2,K1 
= NO(I,K2,K1) 


NL = NL + 1: PRINT : PRINT "POUR°“*;A$;",°L0O 
NGUEURS=e";GM;'"°ETe";NO(I,K2,K2) :NJ(I) = NO 
(I,K2,K2) 

IF NL = 7 AND NA < > NL THEN NL = O: GOSU 
B 3120: HOME 

NEXT I 

GOSUB 3120 

HOME : POKE 36,13: FLASH : PRINT-"**#-CLAS 
SEMENT-*#*"#: NORMAL 

RA(K1,K1) = NO{K1,K1,K1) 
RA(K1,K2) = K1 
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1700 
1710 


1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 


1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 


1970 


1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 


2110 
2120 
2130 


FOR I = K2 TO NA 

IF NO(I,K2,K1) < NO(I - K1,K2,K1) GOTO 174 
0 

RA(I,K2) = RA(I - K1,K2) 

GOTO 1750 
RA(I,K2) =1I 

RA{I,K1) = NO(I,K1,K1) 

NEXT I 

FOR K = K1 TO K2 

FOR I = O0 TO NA 

FOR J = O0 TO NA 
RE(I,J,K) = RS(J,I,K) 

NEXT J,I,K 
AZ = - 1:BZ = NA: 
NO(O,K2,K1) = 1E30 
FOR I = K1 TO NA 
IF NO(I,K2,K1) < NO(I - K1,K2,K1) GOTO 187 
0 

NO(I,K2,K2) = NO(I - K1,K2,K2): 
NO{I,K2,K2) = I 

FOR J = K1 TO NA 

IF RA(J,K1) = NO(I,K1,K1} GOTO 1910 
NEXT J 
RA(J,K2) 
NEXT I 
FOR I = K1 TO NA - 1 

FOR J = I + 1 TO NA 

IF RA(I,K2) < = RA(J,K2) GOTO 1980 


GOSUB 2220 


GOTO 1880 


= RA(J,K2) + NO(I,K2,K2) 


Z = RA(I,K1):RA(I,K1) = RA(J,K1) :RA(J,K1) = 
Z 

Z = RA(I,K2):RA(I,K2) = RA(J,K2) :RA{J,K2) = 
2 

NEXT J 

NEXT I 

CL(K1,K1) = RA(K1,K1) 

RA(K1,3} = K1 


FOR I = K2 TO NA 

IF RA(I,K2) > RA(I - 1,K2) GOTO 2060 
RA(I,3) = - ABS (RA(I - K1,3)) 
GOTO 2070 

RA(I,3) =1I 

NEXT I 


REM ======mmmmmmmmmmmmmmmmmmm— 
HOME : POKE 36,13: PRINT "***eCLASSEMENTe* 
*4w: PRINT 

PRINT LEFTS (T$, 40); 

NL = 0: FOR I = KI TO NA 

NL = NL + l: PRINT : PRINT ABS (RA(I,3));" 
°";ACS(RA(I,K1));: IF RA(I,3) < O THEN PRI 
NT "EX°AEQUO"; 

IF NL > 9 THEN GOSUB 3120:NL = 0: HOME 
NEXT I 

VTAB 23: PRINT : INPUT "VOULEZ-VOUS *RECOMM 
ENCER* L'ANALYSE* ?"?RES$ 





IF LEFT$ (RE$,1) = “O" THEN HOME : GOTO 
840 

GOSUB 3140 

PRINT : INPUT "VOULEZ-VOUS °I MPRIMER*°CES°RE 


SULTATS* ?";R$ 

IF LEFT$ (R$,1) = 
HOME : GOTO 220 
REM CHEMINS LES + LONGS 
REM 


"0" THEN GOSUB 3640 


FOR K 
E = 0 
FOR I = K1 TO NA 

FOR J = K1 TO NA 

RR = RE(I,J,K) 

IF RR < = 0 GOTO 2450 

B = K1 

IF RE(J,0,K) < > O0 GOTO 2350 
RE(I,J,K} = + RR 

GOTO 2450 

I1=7J 
Bl = 0 

FOR J1 = K1 TO NA 

RT = RE(I1,J1,K) 

IF RT = 0 GOTO 2430 

IF RT > O0 THEN B1l = K1: 
VA = RR - KT 


K1 TO K2 


[] 


GOTO 2430 





IF VA > ABS (RE(I,J1,K)) THEN RE{I,J1,K) 
= - VA 

NEXT J1 

IF Bl = O0 THEN RE(I,J,K) = 0 

NEXT J 

NEXT I 

IF B x K1 GOTO 2260 

NEXT K 

FOR K = K1 TO K2 

FOR I = K1 TO NA 
MM = 0 

FOR J = K1 TO NA 

IF ABS (RE(I,J,K)) > MM THEN MM = ABS (R 
E(I,J,K)} 

NEXT J 

NO(I,K1,K) = I:NO(I,K2,K) = MM 

NEXT I 

NEXT K 

FOR I = K1 TO NA 

NO(I,K2,K1) = (NO(I,K2,K1) + NO(I,K2,K2) / 
1000) * AZ + BZ 

NEXT I 

FOR I = K1 TO NA - K1 

FOR J = I + K1 TO NA 

IF NO(I,K2,K1) > NO(J,K2,K1) THEN 2680 
FOR K = K1 TO K2 

Z = NO(I,K1,K) :NO(I,K1,K) = NO(J,K1,K) :NO(J 
.K1,K) = 2 

Z = NO(I,K2,K):NO(I,K2,K) = NO(J,K2,K) :NO{J 
-K2,K} = 2 

NEXT K 

NEXT J 

NEXT I 

RETURN 

REM MODIFICATIONS 

REM æm-m====-===——————— === 

HOME 

PRINT : INPUT "VOULEZ-VOUSeMODIFIER°UNE+NO 


TE® PRES 
IF LEFT$ (RES$,1) < > "“O" THEN 2900 
PRINT "POUR*QUELLE=ACTION *?" 

PRINT : INVERSE : FOR I = 1 TO NA: 
;"-"AC$(I): NEXT 
NORMAL : PRINT : 


PRINT I 


INPUT A$:A = VAL (A$) 
A: GOTO 2810 
“ACTION-INEXISTANTE. “: GOTO 


IF À < I AND À > O THEN I = 
PRINT : 
2740 
PRINT : 


PRINT 


PRINT "POUR°QUEL"CRITERE=?" 
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2820 PRINT : INVERSE : FOR J = l TO NC 3300 PRINT D$; "CLOSE" 
2830 PRINT J:"-";CR$S(J) 3310 RETURN 
2840 NEXT J 3320 REM LECTURE ENREGISTREMENT=-============== 
2850 NORMAL : PRINT : INPUT C$:C = VAL (C$) PR PE 
2860 IF C < J AND C > O THEN J = C: GOTO 2880 3330 VTAB 23: INPUT "NOM°DE°L'ANALYSE® (?° POUR°L 
2870 PRINT : PRINT "CRITERE+INEXISTANT.": GOTO E+CATALOGUE) * ?";NES 
2810 3340 IF NE$ = "?" OR LEN (NES) = O THEN GOSUB 
2880 PRINT "NOUVELLEeNOTE®?r";: INVERSE : PRINT 3620: HOME : GOTO 3330 
DO(I,J);: NORMAL : PRINT "“ "“;: INPUT DOS: 3350 HOME : INVERSE : POKE 36,8: VTAB 23: PRINT 
IF LEN (DO$) > O0 THEN DO(I,J) = VAL (DOS) “*ANALYSE+*FICHIER®*...";NES$S: NORMAL 
2890 REM ----------- 3360 PRINT 
2900 PRINT : INPUT "VOULEZ-VOUS*MODIFIER-UNE"AC 3370 PRINT DS$S;"%OPEN";NES$ 
TION® ?P"} RES 3380 PRINT D$; "READ";NES 
2910 IF LEFTS (RES$,1) < > "“O” THEN 3000 3390 INPUT NA: INPUT NC 
2920 PRINT "LISTE+DESeACTIONS-PRESENTES®° :" 3400 GOSUB 430 
2930 PRINT : INVERSE : FOR I = 1 TO NA 3410 FOR I = 1 TO NA 
2940 PRINT I;"-";ACS(I) 3420 INPUT ACS{I) 
2950 NEXT I 3430 NEXT I 
2960 NORMAL : PRINT : INPUT "ACTION-A°MODIFIER® 3440 FOR I = 1 TO NC 
2";}AS:A = VAL (A$) 3450 INPUT CR$S(I): INPUT PO({I): INPUT Di({(I}: IN 
2970 IF À < I AND À > O THEN I = A: GOTO 2990 PUT D2(I) 
2980 PRINT : PRINT "ACTION*-INEXISTANTE.": GOTO 3460 NEXT J 
2900 3470 INPUT Cl: INPUT C2: INPUT C3: INPUT SI 
2990 NORMAL : PRINT : PRINT : INPUT "NOUVEAU*NO 3480 FOR I = 1 TO NA: 
M°?";AC$: IF LEN (AC$) > O THEN AC$(I) = À 3490 FOR J = 1 TO NC 
C$ 3500 INPUT DO(I,J) 
3000 PRINT : INPUT "VOULEZ-VOUS°MODIFIER"°UN°CRI 3510 NEXT J,I 
TERE°?"°RES 3520 PRINT DS$S;"CLOSE" 
3010 IF LEFTS$ (RE$,1) < > “O" THEN 3100 3530 RETURN 
3020 PRINT "LISTE*DES°CRITERES*-PRESENTS° :" 3540 REM TRAITEMENT ERREUR======= 
3030 PRINT : INVERSE : FOR I = 1 TO NC ===—— 
3040 PRINT I;"-";CRS{I) 3550 IF PEEK (222) = 5 THEN VTAB 10: PRINT "F 
3050 NEXT I ICHIER®°INEXISTANT": PRINT DS; "DELETE";NES: 
3060 NORMAL : PRINT : INPUT "CRITERE+A+MODIFIER GOSUB 3620: GOTO 3570 
*?";A$:A = VAL (A$) 3560 PRINT "ERREUR" 
3070 IF À < I AND À > O THEN I = À: GOTO 3090 3570 FOR IT = 1 TO 1000: NEXT 
3080 PRINT : PRINT "CRITERE*INEXISTANT,": GOTO 3580 POKE 34,0: GOTO 180 
3000 3590 REM =============------- 
3090 NORMAL : PRINT : PRINT : INPUT "NOUVEAU°NO 3600 REM LECTURE CATALOGUE 
M°?";CRS$S: IF LEN (CR$] > O THEN CR$(I) = C 3610 REM 
R$ 3620 PRINT DS; "CATALOG": PRINT : PRINT "APPUYER 
3100 RETURN *SUR*°UNE+ TOUCHE": GET R$: RETURN 
3110 REM ======-====--=2==--------------—-——— 3630 REM =============2- 
_— 3640 REM LISTING IMPRIMANTE 
3120 POKE 36,0: VTAB 23: PRINT "APPUYEZ°SUR-UNE 3650 REM =======22====-2-———————— 
°TOUCHE*POUR°LA:SUITE.": GET C$ 3660 PRINT D$;"PR#3" 
3130 RETURN 3670 TIS = "=== __…- 
3140 REM SAUVEGARDE SUR DISQUE === == 
3150 PRINT 
3160 PRINT D$;"OPEN'";NES 3680 PRINT : PRINT D$;"PR#1"* 
3170 PRINT D$S;"WRITE";NES 3690 N1 = 7:N2 = INT (NA / N1) + 1: IF NA = N1 
3180 PRINT NA: PRINT NC THEN N2 = 1 
3190 FOR I = 1 TO NA 3700 PRINT CHR$S (27}; CHRS (64);: PRINT : PRIN 
3200 PRINT ACS(I) T CHR$S (27); CHRS (14);:: REM GROS CARACTE 
3210 NEXT I RES 
3220 FOR I = 1 TO NC 3710 PRINT "ANALYSE*MULTICRITERE*DE®:";NES 
3230 PRINT CR$(I}: PRINT PO{I): PRINT D1({(I): PR 3720 PRINT CHRS (15): REM 132 COLONNES 
INT D2(I) 3730 L = 1: FOR K = 1 TO N2 
3240 NEXT I 3740 PRINT T1S$ 
3250 PRINT C1: PRINT C2: PRINT C3: PRINT SI 3750 PRINT "Dl";: POKE 36,7: PRINT "D2";: POKE 
3260 FOR I = 1 TO NA: 36,12: PRINT "POIDS";: POKE 36,22: PRINT "C 
3270 FOR J = 1 TO NC RITERES"; 
3280 PRINT DO(I,U) 3760 POKE 36,40: PRINT "ACTIONSe-->"; 
3290 NEXT J,I 3720 Li = L + Nil - 1: IF NA < Li THEN Li = NA 
Re qe 
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CS 


3780 
3790 


3800 
3810 
3820 
3830 
3840 


, 3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 


P = 1: FOR J = L TO LI 
POKE 36,42 + 12 * P: PRINT LEFTS (AC$(J), 
opt 

P=P#+1 

NEXT J 

PRINT : PRINT TI$ 


FOR J = 1 TO NC 
PRINT Dl{(J);: POKE 36,7: PRINT O02(J);: POK 
E 36,13: PRINT PO(J); 
POKE 36,19: PRINT LEFT$S (CR$(J),20); 
P = 1: FOR I = L TO L1 
POKE 36,45 + 12 * P: PRINT DO(I,J); 
P=P#+1 
NEXT I 
PRINT 
NEXT J 
L = L + N1: 
NEXT K 
PRINT : PRINT TI$ 
PRINT "CI = “;Cl;" C2 = 
PRINT 
REM 
PRINT CARS (27); CARS (64) 


REM PRINT CHR$(12)} 


MC 2r" Cle Pacs 


PRINT : PRINT "**#*e LONGUEUR °DES°CHEMINS"IS 
SUSe*ætn 

PRINT LEFT$ (T1$, 79) 

FOR I = 1 TO NA 


A$ = AC$(NA(I)):GM = INT (NI(I)) 

PRINT "“POUR-*;A$;: POKE 36,30: PRINT "LONG 
UEURS="° "; GM; "°ET°">NJ(I} 

NEXT I 


: PRINT : PRINT : PRINT "*#**eCLASSEMENT° *** 


PRINT LEFTS$S (T1$, 79) 

FOR I = 1 TO NA 

PRINT ABS (RA(I,3));"-:ee*ACS$(RA(I-K1)); 
: IF RA(I,3) < O THEN PRINT ‘‘""EX°AEQUO"; 
PRINT 

NEXT I 

PRINT LEFT$S (T1$,79) 

PRINT : PRINT D$;"PR#3": PRINT CHRS (21): 
PRINT 

GOTO 180 

RETURN 

REM MODE D'EMPLOI 

REM 

PRINT D$;:"PR#3": PRINT 

INVERSE : PRINT moossesessossoseesetANALYS 
E °MULTICRITEREsr0000ev000sssecesesssececcecss 

NORMAL : PRINT : PRINT : SPEED= 140 

PRINT “--.+Ce-proÿramme-a-pour*but-de-vous-: 
aider-ä-faire-+le-bon-choix." 

PRINT “L'algorithme-développé-ici-est-celu 
i-de-Roy-Bertier-et-Bernard-Besson" 

PRINT “appelé-Electre-2-qui-signifie-:°-Eli 
mination-et-choix-traduisant-la-réalité." 
PRINT : PRINT "“Cetteeméthode-permet-d'obte 
nireune-classement-unique-é-partir-de-plusie 


ur" 


Fichier de démonstration page suivante... 


4240 


4250 


4260 


4270 


4280 


4290 


4300 


4310 


4320 


4330 


4340 


4350 


4360 


4370 


4380 


4390 


4400 
4410 


4920 


4430 


4440 
4450 


4460 


4470 


49480 


4490 


4500 


4510 


4520 


4530 
4540 


PRINT "classements-différents-et-souvent-c 
ontradictoires." 

PRINT : PRINT "Le-probléme-doit-se-présent 
er-sous-forme-d'un-tableau-avec, °en-coionne 

PRINT "les-'actions',-et-en-ordonnée-les*-c 
ritères.Le-but-sera*de-déterminer*la" 

PRINT "meileure-action*compte-tenu-des-cri 
tères." 

PRINT : PRINT “Aschaque-critére-sera*affec 
té-2-coefficients-de-divergence-Dl-et-D2" 

PRINT : PRINT “Afin-de-limiter-les-ex-aequ 
os-vous-choisirez-3-coefficients-de-converg 
ence“ 

PRINT "“baptiséseeCl, -C2,-et-C3." 

PRINT : PRINT "Ces-coefficients-devront-ré 
pondre-aux*régles-suivantese-:" 

PRINT "O<D1<D2--etee°0<C3<C2<C1<le." 

PRINT : PRINT "“Vous-donnerez*également-un” 
poids-àä-chaque-critére.Ce*poids-est-bien-sû 
r" 

PRINT "subject if,Le-mieux-est-de-s'imposer 
-une-échelle-de-valeurs, “de-0+äà°20" 

PRINT “par-exemple, - les-notes-étant-attrib 
uées-+dans*l'ordre-croissant-des" 

PRINT "préférences." 

PRINT : PRINT "“Lavtache-est-plus-facile, 1 
orsqu'on-dispose-de-données-chiffrées, ‘mais 

PRINT "“étant-donné-que-les-valeurs°les-plu 
s-grendes-sont-attribuées-aux-actions" 

PRINT “lesemeilleures-il-faudra*dans-le-ca 
s°-d'un-cout, ‘par*exemple, -changer-le" 

PRINT "“leesigne-afin-d'inverser-l'ordre." 

PRINT : PRINT “Prenons-pour-exemple-le-cho 
ix-d'‘une-voiture:" 

PRINT "“Les-actions-seraient -les-marques*:G 
OLF°GTI, * RENAULT °5°TURBO-etc." 

PRINT “"Lesecritéres-seraient-les-caractéri 
stiques *:VITESSE°-MAX, °CONSOMMATION, " 

PRINT "“PRIX-etc." 

PRINT "Les-evitesses*seront-des-chiffres-po 
sitifs, tandis -que-les-consommations" 

PRINT “et-les-prix-seront-des-chiffres®nég 
atifs." 


PRINT : PRINT "Si-le-nombre-d'ex-aequo’est 
etrop-important, -vous-pourrez-augmenter-les 
” 

PRINT “coefficients-D1,-D2-ou/et-diminuer- 
les-coefficientseCl,°C2,-et°C3" 

SPEED= 255 

PRINT : PRINT : PRINT “CE°PROGRAMME*-A°ETE° 
INSPIRE*PAR°L'ARTICLE-DE°DANIEL-FERRO°PARU* 
DANS ° LA* 

PRINT "REVUE °SCIENCE*ETeVIE." 

PRINT : PRINT “APPUYEZ®°SUR°UNE° TOUCHE °POUR 
*RETOUR*AU°-MENU.": GET R$ 

PRINT CHR$ (21) 

GOTO 180 
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Fichier VOITURE" 


7. 

7 

AUDI 100 

BMW 520 I 

CITROEN CX 25 GTI 
FORD SIERRA 2.3 

OPEL SENATOR 2L 

P. 505 GTI 

RENAULT 25 GTX 
VITESSE MAXI 

4 

© 

10 

1000 M DEPART ARRETE 
4 

145 

80 À 120 KM/H EN SIEME 
2 

100 

200 

CONSOMMATION 90 KM/H 


a le Basic enrichi 


Cet utiliraire vous permet de : 


Imprimer 
l'écran 40 ou 80 colonnes 
par el 


Nettoyer mémoire très 
rapidement par "]F". 


Gérer des messages, la 
réponse étant contrôlée. 





2 -585 
sl 7,35 
TENUE DE ROUTE 5 

4 9 

1 —117000 
2 192 
CONFORT =31,2 
3 -415 

1 7.35 
2 7 
PRIX 9 

5 —-120000 
5000 182 
10000 —33 

24 —570 
199 7,25 
—32.3 6 
—505 2 
-6.6 —88000 
8 180 

6 —33 
-132000 —670 
190 7.45 
—31 5 


«— Gérard Michel | 


Gérer des masques 40 ou 80 
colonnes. Ces écrans, définis lors 
de la programmation, s'affichent 

par la simple commande “ ] A”. 


Saisir toutes Les variables d'un 
écran en une seule conunande "}{" 
en contrôlant le type et la 
longueur. 


Maïs aus si, ne saisir que l’une des 
variables affectées à un écran, les 
afficher, les effacer, etc... 


ource sont sur la disquette . 


tion dans le Pom's 13) 


150,00 TTC fr: 


mande page 74) 








7 
—112000 
186 
-31.6 
—425 
=7:05 


—-105000 
5000 


EPE 9.0 


EPE 50, c'est : 





fister les programmes 
Basic en ayant ET en 
amère, 


modifier, insérer des 
caractères en plein 
écran sans relire les 


dignes, 


rechercher toute chaîne 
de caractères, 


C'est aussi éditer : 


Sous DOS, 
Sous ProDOS, 
En 40 colonnes, 
En 80 colonnes, 
Sur Apple 'e, 
Sur Apple Je+, 
Sur Apple //c 


EPE 5.0 
200,00 F TTC, franco 





Echange EPE ancienne 





Hard-Copy sur Seikosha GPSUUA 


Jean-Marc Roulon 


e programme possédant 

ses propres compteurs 

et drapeaux, il peut être 

associé à n'importe quel 
autre programme après as- 
sembiage à une adresse adéquate. 
L'appel du programme se fait à 
ORG + 233 ($E9) et permet une 
copie “hard” de l'une des 2 pages 
graphiques après initialisation des 
adresses suivantes : 


° ORG + 2 : 
mode NORMAL($00) ou 


Source 
‘T.DHARD’ 


Assembleur BIG MAC 


1 RRRRRRRRRRRRRRRRRRRRRRRRRR 
2* * 
3 * DOUBLE.HARD.COPIE.HGR #* 
4 * POUR SEIKOSHA GP-S00AS * 
5 * SUR APPIE//C * 
6 * * 
7% C2 
gr PAR J-M ROULON Le 
9 * * 
10 * LE 23/JANVIER/1986 * 
11 [2 * 
12 RARRARARRRARRRRRRRRRRRARR RÉ 

13 

14 

15 RRRRRRRRRRRRRRRRRRR 

16 * LES ADRESSES #* 

17 RRRRRRRRRRRRRRRRRRR 

18 OUTPORT EQU $FE95 

19 COUT EQU SFDED 

20 NBCAR EQU $07F9 

21 

22 ORG $6000 

23 

24 HGRTAMP DS $01 

25 TAMP Ds $01 

26 INVERSE DS Soi 

27 DOUBLE DS  $O1 

28 CADRE DS S01 

29 POSITION DS $01 

30 PAGE DS $01 

31 COMPTI Ds $01 

32 COMPT2 DS $01 

33 COMET3 DS $01 

34 COMPTA Ds $01 

35 COMETS DS $01 

36 ADRI1 DS $01 


& 
SI 


ADR2 DS 


$p1 
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INVERSE($01) 


ORG + 3 : 
impression SIMPLE($00) ou 
DOUBLE($01) 


ORG + 4 : 
SANS CADRE($00) ou AVEC 
CADRE($01) 


ORG + 5 : 

POSITION du dessin par 
rapport au bord gauche du 
papier. De O à 255 ($00 à $FF) 
en impression simple et de 0 à 
50 ($00 à $32) en impression 


INITCAR HEX 005032090844 
3509503709 

RRRRRRRRR RÉ RAR R RAR RÉ 
*  INITIALISATION * 
* DES COMPTEURS  * 
ÉRARRRRRRRARRRRRRRARRRARR 
JSR DLIGNE 
JSR SUITES-5 
JSR DCADRE 
LDA  #$D0 
STA COMPTS 
STA HGRL 
JSR DLIGNE 
JSR DPOS 
LDA  #$00 
COUT 
#$00 
#500 
#$03 
COMPT1 
PAGE 
HGRH 
HGRTAMP 
4508 
COMPT2 
B2 LDA #$08 

STA  COMPT3 


RRRÉRRRRRRRRRRRRRRRRRR 


* PROGRAMME-MAITRE * 
RRRRRRRÉRÉRRRRRRRRRTTRR 
PGRM AD "LDA® 
HGRL HEX 00 

HGRH HEX 00 
INVERSE 
SUITE 
#$FF 
#57F 
DOUBLE 
BEC AA 

DHARD 
COMPAR 
COUT 
NECAR 


DEBUT 


B1 LDA 


SUITE 


double. 

+ ORG + 6 : 
PAGE HGR1($20) ou PAGE 
HGR2($40) 

IMPORTANT : il ne faut pas 


configurer les ports ‘série’ par 
l'utilitaire système, le programme 
initialisant lui-même la sortie 


imprimante (slot 1). “ 


80 LDA  HGRH ® 
81 SEC È 
82 sBC 4504 a) 
83 STA HGRH a 
84 DEC COMPT3 si 
85 BNE PGRH à 
86 LDA  HGRTAMP EF 
87 STA HGRA È 
88 LDA HGRL à 
89 CEC SJ 
90 ADC 4#$80 8 
91 STA HGRL È 
92 BCS BB ce 
93 DEC HGRH ë 
94 BB LDA  AGRH È 
95 STA  HGRTAMP 8 
96 DEC  COMPT2 ES 
97 BNE B2 È 
98 LDA HGRL à 
99 SEC à 
100 SBC #$28 > 
101 STA  HGRL pui 
102 DEC COMPTI S 
103 BNE B1 À 
104 JSR FLIGNE = 
105 LDX  #$00 Éer 
106 CPX DOUBLE > 
107 BEQ SUITE 5 
108 JSR DLIGNE È 
109 JSR DPOS È 
110 LDA 4500 S 
111 UJSR COUT ei 
112 ES 
113 LIGNE2 LDA ADR2,Y S 
114 AND 4#$7F EG] 
115 JSR  COMPAR S 
116 JSR COUT 5 
117 JSR COUT È 
118 STX NBCAR is 
119 INY ë 
120 CPY #$C0 à 
121 BNE LIGNE? Es 
122 JSR FLIGNE S 





59 








60 








123 SUITE3 INC COMPTS 173 UMP  DEB3 223 YJSR BCADRE 
124 LDA COMPTS 174 RETURN CLC 224 RETOUR RTS 
125 CMP F$F8 175: ROR 225 RARE RE 
126 BEC FIN 176 CLC 226 * FIN DE LIGNE * 
127 JMP DEBUT LIT ROR ADRI 227 ssssssesreeættsss 
128 FIN JSR DCADRE 178 STA ADR2,Y 228 FLIGNE  LDA #$500 
129 RTS 179 INY 229 USR COUT 
130 rrrrrnnhaneenatettetanst 180 LDX +500 230 CPX CADRE 
131 * SOUS-PROGRAMME Æ 181 LDA  ADRI 231 BEQ SUITES 
132 * DOUBLE HARD.COPY.HGR * 182 AND #$7F 232 LDX #507 
DÉRRELLLLLLLLLLLLLLLLLLLILLL) 183 JSR  COMPAR 233 UJSR BCADRE 
134 DHARD STA TAM 184 JSR COUT 234 LDA 4#$00 
135 LDA #$00 185 RTS 235 JSR COUT 
136 STA ADR1 186 RRARRRRRRRRRRRRRRRRRRRR RÉ 236 SUITES LDA 4509 
137 CLC 187 * COMPARAISON = 237 JSR COUT 
138 LDX 4#504 188 * AVEC CHRS(9}6CHR$S(13) * 238 LDA 4537 
139 STX COMPTA 189 temsssssetetatasaetetatas 239 JSR COUT 
140 DEB1 DEC COMPTA 190 COMAR CMP #$09 240 LDA #$50 
141 BEQ SUITE 191 BEQ CC 241 JSR COUT 
142 ROR TAMP 192 CMP  4#$0D 242 LDA #$0A 
143 BCC co 193 BNE DD 243 JSR COUT 
144 ROR ADRI 194 CC ADC #$01 244 LDA #$0D 
145 SEC 195 DD RTS 245 JSR COUT 
146 ROR ADRI 196 trnareesetereaetetætæs 246 LDA #$00 
147 JMP  DEB1 197 * INITIALISATION * 247 USR OUTPORT 
148 CO ROR ADR1 198 * DE L'IMPRIMANTE * 248 RTS 
149 CEC 199 tante steeettts 249 *RRRRRRRRRRRRÉRRRR 
150 ROR  ADRI1 200 DLIGNE LDA #$01 250 * LE CADRE * 
151 JMP  DEB1 201 JSR OUTPORT 251 RRREREMARPERESRARRT 
152 SUITEI ROR TAMP 202 LDX  é#$0A 252 DCADRE LDX 4#$00 
153 BCC SCO 203 BLIGNE LDA INITCAR.X 253 CPX CADRE 
154 ROR ADR1 204 JSR COUT 254 BEQ RETURN2 
155 SEC 205 DEX 255 JSR DLIGNE 
156 ROR 206 BNE BLIGNE 256 JSR DPOS 
157 JMP  DEB2 207 RTS 257 LDX #194 
158 SCO ROR ADRI 208 ttaresesteemettetts 258 JSR BCADRE 
159 CLC 209 * POSITION * 259 ŒCPX DOUBLE 
160 ROR 210 * ET * 260 BEQ FLIGNE+S 
161 DEB2 STX  COMPT4 211 * CADRE * 261 LDX #192 
162 DEB3 DEC COMPTA 212 RAARARRARARARARRARRR 262 JSR BCADRE 
163 BEC RETURN 213 DPOS LDX POSITION 263 JI4P  FLIGNE+S 
164 ROR TAMP 214 BPOS BEQ SUITE4 264 RETURN2 RTS 
165 BEC. ‘C20 215 LDA #$00 265 BCADRE LDA #$7F 
166 ROR 216 JSR COUT 266 JSR COUT 
167 SEC 217 STA NECAR 267 LDY 4#$00 
168 ROR 218 DEX 268 STY NBCAR 
169 JMP  DEB3 219 UMP BPOS 269 DEX 
170 C20 ROR 220 SUITE4 CPX CADRE 270 BNE BCADRE 
171 CLC 221 BEC RETOUR 271 RTS 
172 ROR 222 LDX 4#$507 272 END 
Programme ‘COPIEHGR' coco: OPS(6) = "125": PRINT CHRS (4 


Les + symbolisent des espaces. 


S HOME :T$(1) 
(2) = "- 


10 


= "OPTIONS D'IMPRESSION":T$ 





":AS$(1) = "I 


MPRIMER UNE PAGE GRAPHIQUE":A$(2) = "CH 
ARGER UNE PAGE GRAPHIQUE":A$(3) = "VOIR 


UNE PAGE GRAPHIQUE" :AS$(4) 
‘IMPRESSION : 


"LARGEUR D 


A$(5) = "NUMERO DU IECTEUR°---:":AS (6) 
= "MODE D'IMPRESSIONevee:":A$S(7) = "NUM 


ERO DE PAGEcecvvce:":AS(8) 
:".AS(9} = "POSITION (0/ 


Evsssssssecss 





"AVEC CADR 


) ; "BLOAD DHARD“ 

20 DATA 8,9,2,4,6,11,13,15,17,19,21 

30 FOR I = 1 TO 2: READ V: HTAB 12: VTAB 
V: PRINT T$(I);: NEXT I: FOR I = 1 TO 9 
: READ V: HTAB 3: VTAB V: INVERSE : PRI 
NT I;: NORMAL : PRINT " - ";AS(I): NEXT 
I: RESTORE 

40 GOSUB 80: GOSUB 400: GOSUB 500: GOSUB 
600: GOSUB 700: GOSUB 800: GOSUB 910: G 
OSUB 70 

50 X = PEEK ( - 16384) - 176: IF X < 1 OR 
X > 9 THEN 50 

60 POKE - 16368,0: ON X GOSUB 100,200,30 
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0, 400, 500, 600, 700,800,900: GOSUB 70: GO 





TO 50 500 IF L = 1 THEN OPS(2) = "2":L = 0: RET 
70 V = 11: FOR I = 1 TO 6: HTAB 30: VTAB V URN 
: PRINT OPS(I);"ee":V = V + 2: NEXT I: 510 OPS$S(2) = "l":L = l: RETURN 
ATAB 21: VTAB 21: PRINT LP$S;: RETURN 600 IF M = 1 THEN OPS$S(3) = "INVERSE": POK 
80 FLASH : HTAB 5: VTAB 24: PRINT "APPUYE E 24578,1:M = O0: RETURN 
R SUR LE NUMERO DESIRE"; : NORMAL : RETU 610 OP$(3) = "NORMAL ": POKE 24578,0:M = 1 
RN : RETURN 
100 CALL 24809: RETURN 700 IF P = 1 THEN OP$(4) = "2": POKE 2458 
200 POKE 34,23: HOME : INPUT “eeeNOM ?:"; 2,95:P = 0:AD = 4000: RETURN 
NS: PRINT CHR$ (4);:"BLOAD ":N$;",D"; 710 POKE 24582,63:P = 1:OPS$(4) = "l":AD = 
VAL (OPS(2)):",AS":AD: POKE 34,0: GOSU 2000: RETURN 
B 80: GOSUB 300: RETURN 800 IF C = 1 TREN OPS$S(5) = "OUI": POKE 24 
300 POKE - 16304,0: POKE - 16297,0: POK 580,1:C = 0: RETURN 
E - 16302,0: POKE - 16349,0: POKE - 810 OPS$S(5) = "NON": POKE 24580,0:C = 1: RE 
16349 + ASC (OP$(4)),0: GET RS: TEXT TURN 
? RETURN 900 POKE 34,23: HOME : INPUT "++°POSITION 
400 IF IM = 1 THEN OP$(1) = "DOUBLE": POK 2:":OP$(6): POKE 34,0: GOSUB 80 
E 24579,1:1IM = O:LPS = "80)r°": RETURN 910 POKE 24581, VAL (OPS(6)): RETURN 
410 OPS(1) = "SIMPLE": POKE 24579,0:IM = 1 
A = : 
Récapitulation | 
£ 3 60C8- FF FF 00 00 FF FF 00 00  61C8- 60 FO 19 6E 01 60 90 OA 
DHARD 60D0- FF FF 00 00 FF FF 00 00 61D0- 6E OC 60 38 6E OC 60 4C 
60D8- FF FF 00 00FF FF 00 50 61D8- C6 61 6E OC 60 18 6E OC 
Après avoir saisi ce code sous 60E0- 32 09 08 44 35 09 50 37  61E0- 60 4C C6 61 6E 01 60 90 
moniteur, vous le sauvegarderez par : 60E8- 09 20 32 62 20 6E 62 20 61F8- 08 6E OC 60 38 6A 4C F6 
BSAVE DHGR,A$6000,L$2C0 60F0- 92 62 A9 DO 8D OB 60 8D 61F0- 61 6E OC 60 18 6A 8E OA 
60F8- 22 61 20 32 62 20 43 62 61F8- 60 CE 0A 60 FO 11 6E O1 
6000- FF FF 00 00 FF FF 00 00 6100- A9 00 20 ED FD A0 00 A2 6200- 60 90 06 6A 38 6A 4C F9 
6008- FF FF 00 00 FF FF 00 00 6108- 00 A9 03 8D 07 60 AD 06 6208- 61 6A 18 6A 4C F9 61 18 
6010- FF FF 00 00 FF FF 00 00 6110- 60 8D 23 61 8D 00 60 A9 6210- 6A 18 6E OC 60 99 OD 60 
6018- FF FF 00 00 FF FF 00 00 6118- 08 8D 08 60 A9 08 8D 09 6218- C8 A2 00 AD OC 60 29 7F 
6020- FF FF 00 00 FF FF 00 00 6120- 60 AD 00 00 EC 02 60 FO  6220- 20 27 62 20 ED FD 60 C9 
6028- FF FF 00 00 FF FF 00 00 6128- 02 49 FF 29 7F EC 03 60 6228- 09 FO 04 C9 OD DO 02 69 
6030- FF FF 00 00 FF FF 00 00 6130- FO 03 20 B8 61 20 27 62 6230- 01 60 A9 01 20 95 FE A2 
6038- FF FF 00 00 FF FF 00 00 6138- 20 ED FD 8E F9 07 AD 23 6238- OA BD DE 60 20 ED FD CA 
6040- FF FF 00 00 FF FF 00 00 6140- 61 38 E9 04 8D 23 61 CE 6240- D0 F7 60 AE 05 60 FO OC 
6048- FF FF 00 00 FF FF 00 00 6148- 09 60 DO D5 AD 00 60 8D 6248- A9 00 20 ED FD 8D F9 07 
6050- FF FF 00 00 FF FF 00 00  6150- 23 61 AD 22 61 18 69 80 6250- CA 4C 46 62 EC 04 60 FO 
6058- FF FF 00 00 FF FF 00 00 6158- 8D 22 61 BO 03 CE 23 61 6258- 05 A2 07 20 B2 62 60 A9 
6060- FF FF 00 00 FF FF 00 00 6160- AD 23 61 8D 00 60 CE 08  6260- 00 20 ED FD EC 04 60 FO 
6068- FF FF 00 00 FF FF 00 00 6168- 60 DO B1 AD 22 61 38 E9 6268- OA A2 07 20 B2 62 A9 00 
6070- FF FF 00 00 FF FF 00 00 6170- 28 8D 22 61 CE 07 60 DO  6270- 20 ED FD A9 09 20 ED FD 
6078- FF FF 00 00 FF FF 00 00 6178- 95 20 5F 62 A2 00 EC 03 6278- A9 37 20 ED FD A9 50 20 
6080- FF FF 00 00 FF FF 00 00 6180- 60 FO 24 20 32 62 20 43  6280- ED FD A9 OA 20 ED FD A9 
6088- FF FF 00 00 FF FF 00 00 6188- 62 A9 00 20 ED FD B9 OD  6288- OD 20 ED FD A9 00 20 95 
6090- FF FF 00 00 FF FF 00 00 6190- 60 29 7F 20 27 62 20 ED 6290- FE 60 A2 00 EC 04 60 FO 
6098- FF FF 00 00 FF FF 00 00 6198- FD 20 ED FD 8E F9 07 C8 6298- 18 20 32 62 20 43 62 A2 
60A0- FF FF 00 00 FF FF 00 00 61A0- C0 CO DO EA 20 5F 62 EE  62A0- C2 20 B2 62 EC 03 60 FO 
60A8- FF FF 00 00 FF FF 00 00 61A8- 0B 60 AD OB 60 C9 F8 FO 62A8- BB A2 CO 20 B2 62 4C 64 
60B0- FF FF 00 00 FF FF 00 00 61B0- 03 4C F7 60 20 92 62 60  62B0- 62 60 A9 7F 20 ED FD A0 
60B8- FF FF 00 00 FF FF 00 00 61B8- 8D 01 60 A9 00 8D OC 60 62B8- 00 8C F9 07 CA DO F3 60 
60C0- FF FF 00 00 FF FF 00 00 61C0- 18 A2 04 8E OA 60 CE CA 
E« On ne peut ‘BRUNer' ce programme. ORG=24576 (=-$6000) POKE ORG+4,0 
£ © | Dans la pratique, pour imprimer la page BLOAD DHGR,A24576 POKE ORG+5,0 
E = graphique 1 en normal, double, sans POKE ORG+2,0 POKE ORG+6, 32 
G° | cadre, à gauche, vous ferez : POKE ORG+3,1 CALL ORG+233 


:LP$ = "255)": RETURN 
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Les possesseurs d'un Apple //e 
ancien modèle (avec microproces- 
seur 6502) qui souhaitent le 


moderniser et le rendre 
compatible avec le //c peuvent 
acheter un ‘kit de mise à niveau 
65C02”. Il leur en coutera 
1000,00 F environ, mais après, 
ô! merveille... 


Épistole //c et compagnie vous 
montrent plein de petites icônes 
en mode texte, et, pour les 
assemblistes invétérés, ProCODE 
vous permet d'employer 27 
nouvelles instructions, et 2 
nouveaux modes d'adressage en 
langage machine, renouvelant 
ainsi le plaisir de la program- 
mation en assembleur. 


Tout serait pour le mieux dans le 
meilleur des mondes possibles si 
toutefois la ‘documentation’ 
fournie avec le kit 65C02 
dépassait le stade de l'installation 
de ce dernier... Le but de cet 
article est de faire le tour des très 
intéressantes possibilités de ces 
nouvelles ROMSs. Notez que cela 
concerne aussi les possesseurs de 
/Ic... Pour la liste des différences 
entre les ROMSs Basic et F8, vous 
pouvez vous reporter à l'article 
d'Yvan Koenig publié dans le 
numéro 21 de Pom's. 


Commençons par le microproces- 
seur. Celui-ci est maintenant un 
CMOS 6502, ou 65C02 (Métal / 
Oxyde / Silicium, alimentation 
Complémentaire), technologie 
permettant une faible consom- 
mation (4 mA). 


Nouvelles 
instructions 


+ BRA (BRanch Always) : 
branchement inconditionnel. 
Prend Z-cycles «(3 si 
changement de page). 

+ DEA (DEcrement Accumu- 
lator) : retranche 1 au contenu 


de l'accumulateur. Agit sur N 
et Z. Durée : 2 cycles. 

INA (INcrement Accumu- 
lator) : ajoute 1 au contenu de 
l'accumulateur. Agit sur N et 
Z. 2 cycles. 

PHX (PusH X on stack) : 
met le registre X sur la pile. 
N'affecte pas le registre d'état. 
Prend 3 cycles. 

PHY (PusH Y on stack) : met 
le registre ŸY sur la pile. 3 
cycles. 

PLX (PulL X from stack) : 
met l'octet situé au sommet de 
la pile dans X et décrémente le 
pointeur de pile S. Prend 4 
cycles, et agitsur Net Z. 
PLY (PulL Ÿ from stack): 
met l'octet situé au sommet de 
la pile dans Ÿ et décrémentes. 
4 cycles. Agit sur N et Z. 

STZ (STore Zero) : met à 00 
l'octet situé à l'adresse 
spécifiée. N'affecte pas le 
registre d'état. "STZ abs" 
prend 4 cycles, "STZ zpg" 3 
cycles, "STZ zpg,X" 4 cycles, 
"STZ abs,X" 5 cycles. 

TRB (Test and Reset memory 
Bits with accumulator, ouf !) : 
les bits 6 et 7 de la mémoire 
sont copiés dans V et N 
(comme pour BIT), puis les 
bits à 1 dans l'accumulateur 
mettent à zéro les bits de même 
rang dans la mémoire 
(M<-A'M). Par exemple, si 
A=%10010111 et ADR 
contient %10101010, TRB 
ADR donne N=1, V=0, ADR 
contient #00101000. TRB agit 
sur N,V,Z. "TRB abs” prend 6 
cycles et "TRB zpg" 5 cycles. 
TSB (Test and Set memory 
Bits with accumulator) : les 
bits 6 et 7 de la mémoire sont 
copiés dans V et N, puis les 
bits à 1 de l'accumulateur 
mettent à 1 les bits correspon- 
dants de la mémoire 
(M<-AvM). N,V,Z sont modi- 
fiés. "TSB abs" prend 6 cycles 
et"TSB zpg" 5 cycles. 





Cantot 


Nouveaux 
modes d'adressage 


Indirect page zéro 


Exemple : LDA ($06) charge 
l'accumulateur avec le contenu de 
l'adresse qui se trouve au 
double-octet (ordre L,H) spécifié. 
C'est équivalent à "LDY #$00 
puis LDA (zpg),ŸY', mais 
nettement plus pratique ! Avec ce 
mode d'adressage, CMP prend 2 
cycles, et ADC, AND, EOR, 
LDA, ORA, SBC, STA, 5 
cycles. Par exemple, s'il y a $01 
en $B8 et $08 en $B9, "LDA 
($B8)" exécutera"LDA $0801". 


Les 27 nouveeux 


ADC (ap) 
bs (ind,Xx) 
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Indirect indexé absolu 


Ne s'applique qu'à l'instruction 
JMP abs(ind,X). X est ajouté à 
‘ind’, et on effectue un JMP à 
l'adresse contenue dans le mot de 
16 bits pointé par le résultat. Ce 
mode d'adressage est très 
pratique pour gérer des tables 
d'adresses de sous-programmes, 
par exemple dans les amper- 
interpréteurs.. Cette instruction 
JMP prend 6 cycles. 


Notons qu'à la différence du 
6502, dans le cas d'un JIMP 
indirect du type "JMP ($xxFF)", 
l'adresse de la page augmente 
d'un et cela ajoute un cycle à la 
durée de l'instruction 65C02 (ce 
n'était pas le cas avec le 6502). 


Autres différences 


Voilà pour les nouvelles instruc- 
tions. Mais ce n'est pas tout... En 
effet, la gestion des interiuptions 
a quelque peu changée : avec le 
6502, après un BRK , le vecteur 
d'interruption est chargé dans le 
compteur ordinal et le vecteur 
BRK est ignoré. Avec le 65C02, 
le BRK est exécuté, puis 
l'interruption est exécutée. 


Enfin, une dernière différence 
pouvant poser quelques problè- 
mes : les codes inutilisés. En 
effet, il y a 256 codes d'instruc- 
tions machine possibles, mais 
seulement 178 sont utilisés. Avec 
le 6502, les codes inconnus 
étaient interprétés de façon 
hasardeuses. Certains donnaient 
de nouvelles instructions (Ce bug 
a d'ailleurs été exploité par Apple 
à l'adresse $FAF4 de la ROM de 
l'ancien //e), d'autres plantaient 
carrément l'Apple. Avec le 
65C02, toutes les instructions 
inconnues sont interprétées 
comme des NOP (pas d'opéra- 
tion). Mais, selon le code, 
l'instruction aura 1, 2 ou 3 octets 
et durera de 1 à 8 cycles : 


CODE OCTETS CYCLES 
X2 2 2 
X3,X7,XB,XF 1 L 
44 2 3 
54,D4,F4 2 4 


sc 3 8 
DC,FC 3 4 


X = chiffre hexadécimal 
quelconque 


Si vous ne recherchez pas la 
compatibilité totale avec les 
versions passées et à venir du 
6502, vous pouvez utiliser ces 
pseudo-NOPs comme temporisa- 
teurs (par exemple dans une 
routine de ‘timing’ pour l'écriture 
d'octets sur une disquette). 


Et voilà ! Nous avons fait le tour 
des principales différences du 
65C02 par rapport au 6502. 
Notons qu'il y en a d'autres de 
moindre importance, comme la 
gestion du mode décimal et 
certains protocoles ‘hardware’. 


La ROM vidéo 





Plusieurs modifications ont été 
apportées. Tout d'abord, vous 
avez maintenant à votre disposi- 
tion 32 caractères graphiques, qui 
sont décrits à la page 4 du manuel 
du kit. L'envoi d'un 


CHRS (27) 

commute (à condition évidem- 
ment que la carte 80 colonnes soit 
active, ou encore que le jeu de 
caractères alternés soit commuté 
par une écriture à l'adresse 
$COO0F) ces caractères à la place 
des majuscules inversées (codes 
$40 à $5F), d'où les signes 
étranges qui parasitent la ligne 
d'état de votre traitement de texte 
favori, ou le curseur du tableur si 
indispensable à votre travail. 
Pour obtenir ces caractères, 
essayez le petit programme 
suivant : 


10 PRINT CHRS(4)"PR#3" 

20 PRINT CHRS (27): INVERSE: 
REM Commute l'affichage 
des icones 





30 FOR I = 64 TO 95: PRINT 
Ii= "ÉCHRS (TL); 

40 NEXT: PRINT: NORMAL 

50 PRINT CHRS (24): REM 
Revient au mode 
d'affichage normal. 


Joli, n'est-ce pas ? Mais il y a 
deux problèmes qui se posent : 
impérativement, dans un pro- 
gramme machine ayant ses 
propres routines d'affichage, les 
majuscules inverses doivent 
utiliser les codes écran $00 à 
$1F... De plus, la totalité des 
programmes de hardcopy d'écran 
texte risquent de donner des 
résultats bizarres avec un écran 





Les modifications ne s'arrêtent 
pas là. La commande ESC R a été 
supprimée (vous en comprendrez 
la raison plus loin), et on a 
implanté une nouvelle 
commande : ESC D (tapée AU 
CLA VIER) permet de filtrer les 
caractères de contrôle envoyés à 
l'écran, exceptés CTRL-G (bell), 
CTRL-H (backspace), CTRL-J 
(line feed), CTRL-M (carriage 
return, si, si !). C'est très utile 
par exemple lorsque l'on reçoit 
des codes hétéroclites via 
l'interface série, et que l'on veut 
éviter qu'il y ait le fouillis sur 
l'écran (passage de 80 en 40 
colonnes, passage en inverse, 
etc...) On revient au mode 
nonnal par ESC E. 


Également, pour ceux qui 
n'auraient pas remarqué, l'affi- 
chage en 80 colonnes a été 
notablement accéléré (30%), et le 
vilain ‘scrolling' qui autrefois 
rendait une ligne de programme 
illisible du fait de son défilement 
en Zzig-zag est maintenant 
impeccable. 


De plus, sous Pascal UCSD, en 
envoyant un CTRL-F à l'écran, 
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on supprime l'affichage du 
curseur, ce qui perrnet d'accélérer 
l'affichage sous Pascal de 30 
autres % (i en a bien besoin !). 


CTRL-E fait revenir le 
sympathique rectangle sur votre 
moniteur... 


COUTI1 ($FDFO0) et KEYIN 
($FDIB), qui n'étaient pas 
compatibles avec le mode 80 
colonnes, le sont désorinais. La 
routine SETVID ($FE93) 
déconnecte maintenant l'affichage 
80 colonnes. 


2 se. + pergtengeegesspunenes es 
H 





Le moniteur 


Il accepte désormais TOUTES les 
commandes en minuscules com- 
me en majuscules. De nouvelles 
fonctions sont apparues : 


Entrée de codes ASCII 


Ilest possible d'entrer des codes 
ASCII à la place d'un ou 
plusieurs octets en écrivant ('*) 
(où * est le caractère) à la place 
des deux chiffres hexadécimaux. 
Par exemple “400: "B ‘A C1 C2" 
fera apparaître "BABA" en haut 
de l'écran (s'il n'y a pas de 
‘scrolling” bien sûr). 


Recherche d'un 
ou de deux octets 


Pour rechercher le nombre de 16 
bits LLHH entre les adresses 
“début” et ‘"fin”, on écrit 
"HHLL<débutfin” (notez l'in- 
version de HH et de LL). Par 
exemple, "’K'O<801.4000S" 
recherchera "OK". Si on ne 
spécifie qu'un seul octet, ce sera 
cet octet et seulement lui qui sera 
recherché. Ainsi, "60<F800. 
FFFF" affichera l'adresse de tous 
les RTS de la ROM F8. 





Mini-assembleur 


Mais oui, vous ne rêvez pas ! Il 
est revenu... et c'est toujours le 
même depuis 10 ans. Autrement 
dit : il n'assemble pas, hélas, les 
codes mnémoniques 65C02. Tout 
comme la fonction ‘List’ du 
nouveau moniteur du //e ne 
désassemble pas les codes 
65C02... Apple a apporté de très 
intéressantes améliorations, mais 
aurait pu faire un effort de ce 
côté ! 


Bon, c'est tout de même mieux 
que rien. Les nouvelles 
instructions du 65C02 ne sont 
pas irremplaçables. Pour entrer 
dans le mini-assembleur, vous 
tapez "!". Le prompt du moniteur 
(*) se change en (!). La syntaxe 
est la suivante: "HHLL:instr". Si, 
à la place de l'adresse 
d'assemblage HHLL, vous tapez 
un espace, le code sera implanté à 
la suite de la dernière instruction 
assemblée. Le résultat de 
l'assemblage est affiché 
immédiatement. Toute erreur est 
signalée par un son de cloche et 
un pointeur (*) indiquera la 
position de l'erreur. Exemple : 


Vous tapez : 


t300:PHA 

! LBA #'Z 

! JSR $FDED 
! PLA 

! RTS 

Vous voyez : 


0300- 48 

0301- A9 DA 
0303- 20 ED FD 
0306- 68 

0307- 60 


PHA 
LDA #S$SDA 
JSR $FDED 
PLA 
RTS 


Notez que l'on ne peut pas entrer 
des commandes du moniteur 
lorsque l'on est dans le 
mini-assembleur. 
On revient au moniteur en tapant 
<Retum> à vide. 


Le Basic Applesoft 


Celui-ci accepte instructions et 
variables en minuscules, qui 
seront automatiquement conver- 
ties en majuscules. Saluons cette 





amélioration qui fait que, sous 


ProDOS, on peut entrer 
n'importe quelle commande 
(SED, Basic, Moniteur) 


indifféremmenten majuscules ou 
en minuscules. Finie Ja 
gymastique du “CAPS LOCK” ! 
Cela, ajouté à l'amélioration du 
clavier, apporte un grand confort 
d'utilisation. 


Mis à part cela, les routines 
“tabulantes” du Basic Applesoft 
fonctionnent maintenant parfaite- 
ment en 80 colonnes. Il s'agit de 
HTAB (on peut enfin écrire 
"HTAB 60" sans provoquer un 
résultat aléatoire !), TAB, SPC et 
la virgule de tabulation dans les 
PRINT. 


Remarquons qu'aucun effort n'a 
été fait pour rajouter des 
instructions, ou pour en enrichir 
d'autres (par exemple pour 
l'utilisation de la double 
résolution), et que les “bugs” 
célèbres sont même restés, tels 
celui de la virgule de tabulation 
(cela aurait requis le changement 
d'un seul octet), ou celui du 
GOTO/GOSUB 440xxx.. 


Pascal 


Outre les fonctions CTRL-F et 
CTRL-E décrites plus haut, et le 
rejet du code permettant de passer 
en 40 colonnes sur l'Apple Pascal 
1.1, la grande nouveauté est que 
la nouvelle ROM moniteur peut 
démarrer le Pascal depuis un 
autre périphérique qu'un DISK II 
dans le slot 6. Il est donc 
désorinais possible de démarrer 
depuis un UNIDISK II, un 
PROFILE, etc. 


Nous avons fait le tour des 


FORT M 


qui, malgré de nombreuses 
lacunes, réprésente néanmoins un 
net progrès par rapport à 


l'ancienne. 
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Quelques notes : 


e petit jeu d'adresse 

peut tourner sur 

n'importe quel type 

d'Apple : il s'agit, avec 
un serpent, de ‘manger’ des 
pommes représentées par un petit 
carré sur l'écran. Suivant le 
nombre d'erreurs déjà commises, 
chaque prise rapporte de un à 
trois points. 





Si le serpent heurte le bord de 
l'écran, ou se touche lui-même, il 
commet une erreur. Au-delà de 
trois erreurs, il est disqualifié (et 
vous avec !). 


Pour déplacer le serpent, utilisez 
les flèches droite et gauche. 
Attention, il faut raisonner 
comme si vous vous trouviez à la 
place du serpent et donc le diriger 
en conséquence. 


Enfin, pour corser l'histoire, le 
serpent s'agrandit à chaque 
prise. 


G 


Le programme se sert de l'espace $800 à $BFF 
pour stocker une table d'adresses HGR qu'il cré Source ‘SNAKE.TXT’ 
lui-même. 

Assembleur LISA 1.5 


Le score du jeu est stocker sur la disquette en 








piste $11, secteur $0, octet 4 et 5, emplacement 1 ORG $C00 36 LINPRT EQU $ED24 
inurtilisé (cf. manuel DOS). 2 LGSNAK EPZ $6 37 HGR EQU $F3E2 
3 SENS EPZ $7 38 HPOSN EQU $F41l 
Pour éviter les problèmes avec d'autres MT de Fe 1 GARE EOV/FRÈES 
programmes qui utiliseraient cette adresse, laissez POMMEL EPZ $8 17 OU AH SEE 
ce jeu seul sur sa disquette. 6 POMMEC EPZ $A 41 CHROUT EQU $FDEB 
7 DELAI EPZ $B 42 ; INITIALISATION 
8 SCORE EPZ $18 43 JSR HGR 
9 HTAB EPZ $24 44 LDA TEXTE 
D 9 10 LIGNE EPZ $26 45 LDA #$15 
Comment faire : 11 SNAKES EPZ $CE 46 STA HTAB+1 
12 TEMPO EPZ $DO 47 JSR $FC22 
Vous disposez de la disquette d'accompagnement, faites 13 vemr1 EPz $p1 48 LDA NONMXT 
simplement ‘BRUN SNAKE'. 14 TEMP2 EPZ $D2 49 LOY #0 
15 TEMP3 EPZ $D3 50 STY VISUAL 
Vous ne disposez pas de cette disquette, alors vous 16 TEMP4 EPZ $D4 51 STY TEMPO 
ares 17 RECORD EPZ $D6 52 STY COLOR 
1 Saisir et sauvegarder SNAKE.OBJ. - É en u ho . ; HR 
{C'est le programme objet créé par le source 20 HGRHAU EOU $900 55 STA CMD 
SNAKE.TXT). 21 MASQUE EQU $A00 56 LDA #0 
2 Saisir et sauvegarder SNAKE MASQUE. 22 XD7 EOU $B00 57 STA SECTEU 
Il s'agit de la représentation mémoire d'un écran texte, 23 VOLUME EQU $B7EB 58 STA VOLUME 
Bien sûr on ne peut le saisir directement à l'adresse 24 PISTE EOU $B7EC 59 LDA #$11 
$400, vous le saisirez à partir de l'adresse $1008. AnÉACEEN EQU PSTED D Foie 
26 CMD  EOU $B7F4 61 LDA #SECTOR 
3 Saisr et sauvegarder SNAKE FUSION. 27 BUFFER EQU $B7F0 62 STA BUFFER 
Ce programme charge  SNAKE.OBJ, 23 ToucHE EQU $co00 63 LDA /SECTOR 
SNAKE.MASQUE dans la mémoire écran et sauvegarde 29 RAZKBD EQU $C010 64 STA BUFFER+1 | 
le tout sous la forme d'un fichier exécutable nommé 30 SPEAKR EOU $C030 65 LDA #$B7 
SNAKE 31 GRAPHI EOU $C050 66 LDY #$E8 
4 Pour toutes les utilisation ultérieures, il su fftra de taper de RTE. ROBOT Êz RENE 
33 NONMXT EQU $C052 68 BCC NOTERR 
‘BRUN SNAKE 34 MIXTE EQU $C053 69 UMP $3D0 
35 HAURES EQU $CO057 70 NOTERR LDA SECTOR+$4 
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71 STA RECORD 132 LDY TEMP3 196 SENS4 DEC TEMP3 261 BIP7 TXA 


72 LDA SECTOR+SS 133 LDX #$S2F 197 JP TSTPOM 262 TAY 
73 STA RECORD+1 134 JSR CARRE 198 SENS3 INC TEMP4 263 BIP8  LDA SPEAKR 
74 % 135 INC TEMP3 199 JUMP TSTPOM 264 DEY 
75 LA #RESET 136 BNE CADRE1 200 SENS2 INC TEMP3 265 BNE BIP8 
76 STA $3F2 137 VRTCAL LDA #$2E 201 JMP TSTPOM 266 TXA 
79 LDA /RESET 138 STA TEMP3 202 SENS1 DEC TEMP4 267 TAY 
78 STA $3F3 139 CADRE2 LDX TEMP3 203 TSTPOM LDX TEMP3 268 BIP9  DEY 
79 EOR #$A5 140 LDY #0 204 LDY TEMP4 269 BNE BIP9 
80 STA $3F4 141 USR CARRE 205 CPX POMMEL 270 LDY #$20 
81 ;CREATION TABLE 142 LDX TEMP3 206 BNE TSTVID 271 BIP10 LDA SPEAKR 
MASQUE ET XD7 143 LDY #$3F 207 CPY POMMEC 272 DEY 
82 INITI LDX TEMPO 144 JSR CARRE 208 BNE TSTVID 273 BNE BIP10 
83 LDA #0 145 DEC TEMP3 209 MANGE INC LGSNAK 274 LDY #$20 
84 TAY 146 BNE CADRE2 210 JSR ALLONGE 275 BIPli DEY 
85 JSR HPOSN 147 ; 211 JSR PLACE 276 BNE BIP11 
86 LDX TEMPO 148 DEBUT LDA #2 22? DEC DELAI 277 INX 
87 LDA $ES 149 ;LONGUEUR DU SNAKE 213 LDA #$15 278 BNE BIP7 
88 STA XD7,X 150 STA LGSNAK 214 STA HTAB 279 JSR KPRESS 
89 LDA $30 151 STA TEMP3 eus CLIC 280 BMI FINTST+3 
90 STA MASQUE, X 152 BCLOI LDX TEMP3 216 LDA SCORE 2812 ;FIN D'UNE PARTIE 
91 DEC TEMPO 153 LDA #$10 217 ADC SNAKES 282 FIN LDY #$40 
92 BNE INITI 154 STA SNAKEC,X 218 STA SCORE 283 BIP13 STY TEMP3 
93 ;CREATION TABLE 155 LDA TEMP3 219 BCC LDXSCO 284 BIP14 TYA 
HGRBAS ET HGRHAU 156 STA SNAKEL,X 220 INC SCORE+1 285 TAX 
94 INIT2 LDA TEMPO 157 TAX 221 LDXSCO LDX SCORE 286 BIP15 LDA SPEAKR 
95 CMP #$CO 158 LDY #$10 222 LDA SCORE+1 287 DEX 
96 BCS SUITE 159 JSR CARRE 223 JSR LINPRT 288 BNE BIP15 
97 LDY #0 160 DEC TEMP3 224 LDY #0 289 LDX TEMP3 
98 JSR HPOSN 161 BNE BCLOI 225 BIP1 TYA 290 BIP16 DEX 
99 LDY TEMPO 162 JSR PLACE 226 TAX 291 BNE BIP16 
100 LDA LIGNE 163 LDA #3 227 BIP2  LDA SPEAKR 292 DEC TEMP3 
101 STA HGRBAS,Y 164 STA SNAKES 228 DEX 293 BNE BIP14 
102 LDA LIGNE+1 165 LDX #0 229 BNE BIP2 294 DEY 
103 STA HGRHAU, Y 166 STX HTAB 230 LDX #$30 295 BNE BIP13 
104 INC TEMPO 167 STX DELAI 231 BIP3  DEX 296 LDA SCORE+1 
105 BNE INIT2 168 STX SCORE 232 BNE BIP3 297 CMP RECORD+1 
106 ;RAZ DU TABLEAU 169 STX SCORE+1 233 INY 298 BCC PAS.> 
ECRAN 170 INX 234 CPY #$80 299 BNE SCORE> 
107 SUITE LDA #0 171 STX SENS 235 BNE BIP1 300 LDA SCORE 
108 STA TEMP3 172 JSR KPRESS 236 BIP4  LDX #$10 301 CMP RECORD 
109 STA TEMP4 173 LDA GRAPHI 237 BIPS LDA SPEAKR 302 BCC PAS.> 
110 INIT3 LDX TEMP3 174 LDY #$23 238 DEX 303 SCORE> LDA #$24 
111 CPX #530 175 MESS  LDA MESSAG,Y 239 BNE BIP5 304 STA HTAB 
112 BCS NEXT 176 JSR CHROUT 240 TYA 305 LoX SCORE 
223 LDY TEMP4 122 DEY 241 TAX 306 STX RECORD 
114 JSR CARRE 178 BPL MESS 242 BIP6  DEX 307 LDA SCORE+1 
115 INC TEMP3 179 LDA #$24 243 BNE BIP6 308 STA RECORD+1 
116 BNE INIT3 180 STA HTAB 244 DEY 309 JSR LINPRT 
117 NEXT  LDA #0 181 LDX RECORD 245 BNE BIP4 310 LDX #3 
118 STA TEMP3 182 LDA RECORD+1 246 JMP FINTST+3 311 BIP12 LDA #$80 
119 INC TEMP4 183 JSR LINPRT 247 TSTVID JSR CLCADR 312 JSR PAUSE 
120 LDA TEMP4 184 ;BOUCLE D'UNE 248 LDA ({TEMPO),Y 313 LDY #SFF 
124 CMP #$40 PARTIE 249 BNE CRASH 314 JSR CLOCHE 
122 BCC INIT3 185 JEU LDX SNAKEL+1 250 JMP FINTST 325 DEX 
123 ;TRACÉ DU CADRE DE 186 STX TEMP3 251 ; PLANTE 316 BPL BIP12 
L'ECRAN 187 LDY SNAKEC+1 252 CRASH DEC SNAKES 317 PAS.> LDA TEXTE 
124 LDA #0 188 STY TEMP4 253 LDA SNAKES 318 INC COLOR 
125 STA TEMP3 189 LBY SENS 254 ADC #7 319 LDX POMMEL 
126 DEC COLOR 190 DEY 255 STA HTAB 320 LDY POMMEC 
127 CADREÏ LDY TEMP3 191 BEQ SENS1 256 LDA #"" 321 JSR CARRE 
128 CPY #$40 192 DEY 257 JSR CHROUT 322 LDY LGSNAK 
129 BCS VRTCAL 193 BEQ SENS2 258 LDA SNAKES 323 STY TEMP3 
130 LDX #0 194 DEY 259 BEQ FIN 324 EFFACE LDY TEMP3 
131 JSR CARRE 195 BEQ SENS3 260 LDX #0 325 LDA SNAKEL, Y 
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326 TAX 380 ALLONG LDY LGSNAK 429 ASL TEMPO 481 INY 








327 LDA SNAKEC,Y 381 BCLO3 LDA SNAKEL-1,Y 430 ROL TEMPI1 482 CPY #5 

328 TAY 382 STA SNAKEL, Y 431 ASL TEMPO 483 BCC STKSNS 
329 JSR CARRE 383 LDA SNAKEC-1,Y 432 ROL TEMP1 484 DEY 

330 DEC TEMP3 384 STA SNAKEC,Y 433 ASL TEMPO 485 DEY 

331 BNE EFFACE 385 DEY 434 ROL TEMP1 486 DEY 

332 DEC COLOR 386 BNE BCL0O3 435 ASL TEMPO 487 DEY 

333 JMP DEBUT 387 LDX TEMP3 436 ROL TEMP1 488 STKSNS STY SENS 

334 ; 388 STX SNAKEL+1 437 ASL TEMPO 489 RTS 

335 FINTST JSR DECALE 389 LDY TEMP4 438 ROL TEMP1 4390 GAUCHE LDY SENS 

336 LDA DELAI 390 STY SNAKEC+1 439 LDA #ECRAN 491 DEY 

337 STA TEMP3 391 JSR CARRE 440 ADC TEMPO 492 BNE STKSNS 
338 BCLO4 JSR LITSNS 392 RTS 441 STA TEMPO 493 INY 

339 JSR LITSNS 393 ;AFFICHE/EFFACE UN 442 LDA /ECRAN 494 INY 

340 JSR LITSNS CARRE EN LIGNE X 443 ADC TEMP1 495 INY 

341 JSR LITSNS COLONE +. 444 STA TEMPI 496 INY 

342 JSR LITSNS 394 CARRE JSR CLCADR 445 RTS 497 BNE STKSNS 
343 JSR LITSNS 395 LDA COLOR 446. GB TPS ABIP. 498 ;ALLUME/ETEIND UN 
344 JSR LITSNS 396 STA (TEMPO),Y 447 KPRESS LDA RAZKBD POINT LIGNE Y 

345 JSR LITSNS 397 TXA 448 REPEAT BIT TOUCHE COLONE X 

346 JSR LITSNS 398 ASL 449 BMI RETOUR 499 PLOT  LDA HGRBAS, Ÿ 
347 DEC TEMP3 399 ASL 450 LDY #9 500 STA LIGNE 
348 BNE BCL04 400 STA TEMPO 451 JSR CLOCHE 501 LDA HGRHAU, Y 
349 JMP JEU 401 TYA 452 LDA #0 502 STA LIGNE+I 
350 ;PLACE UNE POMME 402 ASL 453 JSR PAUSE 503 PLOTML LDA XD7,X 
351 PLACE ADC $C060 403 ASL 454 JSR PAUSE 504 TAY 

352 ADC $CO00,X 404 STA TEMP1 455 BEQ REPEAT 505 HEX A9 

353 TAX 405 LDA #4 456 ;BASCULE DE 506 COLOR HEX 00 

354 CPX #3 406 STA TEMP2 L'AFFICHAGE DU 507 EOR (LIGNE),Y 
355 BCC PLACE 407 CARRE LDY TEMPO SCORE SI ESC 508 AND MASQUE ,X 
356 CPX #S$2D 408 LDX TEMP1 457 LITSNS BIT TOUCHE 509 EOR (LIGNE),Y 
357 BCS PLACE 409 JSR PLOT 458 BPL RETOUR 510 STA (LIGNE), Y 
358 ADC $CO060 410 INX 459 LDA TOUCHE 511 RTS 

359 ADC $D00,Y 411 LDY TEMPO 460 BIT RAZKBD 512 RESET LDA #2 

360 TAY 412 JSR PLOTML 461 CMP #$88 513 STA CMD 

361 CPX #3 413 INX 462 BEQ DROITE 514 LDA RECORD 
362 BCC PLACE 414 LDY TEMPO 463 CMP #$95 STS STA SECTOR+S4 
363 CPY #$3D 415 JSR PLOTML 464 BEQ GAUCHE 516 LDA RECORD+1 
364 BCS PYACE 416 INX 465 CMP #S8D 517 STA SECTOR+SS 
365 JSR CLCADR 417 LDY TEMPO 466 BEQ BASCUL 518 LDA #$B7 

366 LDA (TEMPO),Y 418 JSR PLOTML 467 CMP #$9B 519 LDY #$E8 

367 BNE PLACE 419 INC TEMPO 468 BNE RETOUR 520 JSR JPRWTS 
368 STX POMMEL 420 DEC TEMP2 469 STOP  JSR KPRESS 52] LDA #$6 

369 STY POMMEC 421 BNE CARREI 470 BMI LITSNS 522 JMP $FE95 
370 BEC CARRE 422 RTS 471 BASCUL LDA #SFF 523 MESSAG ASC ":DROCER 
371 >; DECALE LE SNAK 423 CALCUL L'ADRESSE 472 STA TOUCHE / :EROCS / 

372 DECALE LDY LGSNAK D'UNE LIGNE X 473 EOR VISUAL àèà: SEKANS" 

373 LDA SNAKEL, Y ET LA PLACE DANS 474 STA VISUAL 524 SNAKEL DFS $100 

374 TAX TEMPO , TEMPI1 475 BEQ CACHE 525 SNAKEC DFS $100 

345 LDA SNAKEC,Y 424 CLCADR STX TEMPO 476 LDA MIXTE 526 SECTOR DFS $100 

376 TAY 425 LDA #0 477 RETOUR RTS 527 ECRAN END 

377 INC COLOR 426 STA TEMPI 478 CACHE LDA NONMXT 

378 JSR CARRE 427 ASL TEMPO 479 RTS 

379 DEC COLOR 428 ROL TEMP1 480 DROITE LDY SENS 


Programme ‘SNAKE.FUSION 


10 REM CHARGE SNAKE.OBJ ET SNAKE MASQUE DANS LA MEMOIRE ECRAN ET SAUVEGARDE LE TOUT SOUS LA 
FORME D'UN FICHIER EXECUTABLE NOMME SNAKE 

20 M$ = "SNAKE.MASQUE" 

30 F$ = "SNAKE" 

40 POKE 973,76: POKE 974,00: POKE 975,12 

50 D$ = CHR$S (4): PRINT DS$S"BLOAD "MS$S",AS400": PRINT D$"BLOAD SNAKE.OBJ" : PRINT DS"BSAVE "FS 
*A973,123111" 
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Apple serait-il donc devenu un 
constructeur de micro-ordinataurs 
comme les autres ? Il semble en 
tous cas bien loin le temps où 
Steve Jobs annonçait une 
nouvelle race de micro- 
ordinateurs «for the rest of us». 
Andy Hertzfeld, un des dévelop- 
peurs du Macintosh et le père du 
numériseur Thundcrscan, l'expni- 
mait récemment ainsi : «Du tem ps 
de Jobs, la missioa d'Apple était 
de rendre les ordinateurs 
accessibles, maintenant, c'est de 
protéger ses acticmmaires». 

Aujourd'hui, les fabricants des 

tie à la pomme emploient 

les mêmes procédés (discutables) 
ue jous les autres CONSŒUCUUTE 
n commençant par amoncer des 
produits indisponibles. Annoncée 
en janvier, la transformation des 

Macintosh en Macintosh Plus 

n'avait, eu mai, été réalisée que 

pour une toute petite minorité 
d'heureux veinards. Chez les 
concessionnaires, lorsqu'on 
abordait le sujet, les mines 
s'allongeaient... presque autant 

ue les listea d'attente. Les 

élais ? Juillet, août ? Certes, le 

Macintosh est un succès et il faut 

s'en réjouir il est vrai, qu'il est 

plus rentable pour Apple de 
vendre des Macintosh Plus 

entiers que des “kits” de mise à 

niveau. H n'empêche : les 

candidats à la transformation l'ont 
trouvé plutôt saumâtre. Au 
moins, ont-ils été ainsi épargnés 
par les problèmes de compatibilité 
qui ont affecté les possesseurs de 

Macintosh Plus. A cause d'abori 

d'un vilain En dans le 

Système (version 3.1). Apple a 

du, en toute hâte, livrer une 

nouvelle version (la 3.1.1). En 
raison, ensuite, du foncmon- 
nement même du nouveau 
système de hiérarchisation des 
fichiers. Les gourous d'Apple 
avaient pourumt juré wr bi et orbi 
leurs grands dieux que tous les 
logiciels “bien élevés" devaient 
fonctionner sans bavures sur le 

Macintosh Plus. Las ! M n'en est 

apparemment rien. Pom's a 

relevé, dans ce numéro, de 

nombreux exemples, voici donc 
juste quelques conseils supplé- 
mentaires : 

- aux utilisateurs d'Excel : 
garder ious les documents liés 
dans le même dossier, pour 
que les œises à jour se fassent 
bien automatiquement ; 

- aux uilisateurs de MacDraw : 
ne vous étonnez pas de ne 
pouvoir afficher plus de I1 
polices de caractères. Pas 
question de faire défiler ce 
men ; 

- aux utilisateurs du Switcher : 
ajouter 20Ko par application et 
placez les toutes dans le même 
dossier. 


Problèmes de jeunesse, certes, 
mais qui pourraient bien dégoûter 
à jamais ceux qui ont commencé 
leur micro-infommaque 
sur le Macintosh Plus. Dernier 
exemple du peu de cas que 
semble faire Apple de ses clients : 
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l'affaire du nouveau Macintosh 
512Ko. Ce dernier bébé de la 
ganme Mssintosh est simplement 
un Mac de 512Ko doté d'un 
lecteur inteme de disquettes 
double face (800Ko contre 400 
pour l'ancien) et de la nouvelle 
ROM de 128Ko. Par rappoit au 
Macintosh Plus, il lui manque 
donc la mémoire de 1 Méga ct 
l'interface SCSI pour disque dur. 
Aux États-Unis, il a été apnoncé 
au prix de 1995 dollars. Une 
bonne occasion, au cours du 


dollar, sec nome aux moins 
riches fes quiper d'un Mac à 
15 000,00 F ? Eh bien non, 
Apple France n'entend pas le 
vendre moins de 20 000,00 F. 
Cene fois c'est pour préserver ies 
marges des revendeurs. Question 
au PDG d'Apple : et le client 
aicrs ? Pourquoi ne pas ref aire le 
même bon geste effectué en 
tarifant avantageusement chez 
nous les ruises à niveau du Mac 
en Macintosh Plus ? 

Moycmnant quoi, tout va très bien 
pour Apple. Bien qu'elle ait 
diminué son chiffre d'affaires, la 
firme a augmenté aux Etats Unis 
son bénéfice de 218%. La revue 
Infoworld, qui fait autorité dans 
le monde de la micro a salué 
l'mivée du Macintosh Plus en le 
dotant d'une note de 7,7, en le 
commandant hautement”, et en 
estimant qu'Apple pouvait 
désormais afaquer de pied ferme 
le anché de l'entreprise. 

On continue à Cupertino la mise 
au point du Su, ac, exteisible 
(nom de code Milwaukee, 
première sortie, peut être en 
septembie), du nouvel Apple // et 
de leurs périphériques communs 
(le nouvel Apple // se verrait ainsi 
doté lui aussi d'une interface 
SCSI). Du côté du monde 
extérieur, Macintosh devrait très 
bientôt pouvoir fonctionner sous 
Unix, cet on reparle aux 
Étas-Unis d'une utilisation du 


MS Dos qui ne avr 
l'intermédiaire diu “Mac Charie” 
(cege extension géniale transfor- 
mant le Mac en un vulgaire 
compatible IBM). 

Voilà pour l'avenir. Le présent se 
conjugue pourle Macintosh grêce 
à de nouveaux programmes. 
Apple ssit que le développement 
du logiciel sera désormais capital 
ct a décidé d'en confier la 
responsabilité à Del Yocam, son 
directeur général. Trois axes, ce 
mois-ci, pour les logiciels 
nouveaux : la boulimie avec le 
Servant, la communication et 
l'édision électronique. 


Boulimique 


C'est The Servant (le 
serviteur), un domestique doré 
sur tranches développé par Andy 
Hertzf eld ; après son génial nu- 
métiseur d'images Thunderscan, 
il récidive avec ce nouveau 
logiciel “intégraleur”, qui permet 
d'ualiser simultanément plusieurs 
logiciels et de repasser de l'un à 
l'aute. Çs vous rappelle quelque 


Micro-informations 
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chose ? Et oui, The Servant 
ressemble à un Switcher mêtiné 
de Finder. Avec quelques détails 
qui comptent : ce logiciel (reservé 
au Macintosh Plus) utilise une 
mémoire cache de 700Ko. Il 
permet d'utiliser comme fond du 
bureau des images numérisées, 
ou n'importe quel document 
MacPaint. Quand on ouvre un 
programme, le bureau ne 
disparaît pas : l'application 
s'ouvre simplement dans une 
fenêtre. On peut garder quatre 
fenêtres ouvertes simullanément. 


The Servant pennet de lancer des 
t8ches de fond, c'est-à-dire de 
laisser l'ordinateur s'occuper en 
arrière plan d'imprimer, ou de 
recevoir un fichier par modem, 
tout en conscrvant la possibilité 
de travailler. The Servant est 
ençore un prot qui devrait 


être lancé aux États-Unis en 
septembre. 
Communication 


Échanger des dommées epte un 
Mac ct un IBM ? Facile avec 
MacLinuk de Datavlz. Ce 
logiciel comprend deux 
disquentes : l'une pour le Mac et 
l'autre es l'IBM (avec au 
moins 192Ko et deux lecteurs) 
ainsi qu'un câble. On relie les 
deux machines par les sorties 
séries (ou un œodrm). Là oùles 
choses se corsent, c'est quand ce 
logiciel permet de traduire les 
fichiers pour qu'ils soient 
utilisables sur l'une ou l'autre 
machine. Ainsi, un document 
écrit avec Macwiite peut être 
converti au format de 
Displaywrite Wordstar ou 
Multimate, et être traité sur 
l'IBM. Bien évidemment, 
l'inverse est également possible. 
On peut aussi récupérer une 
feuille de calculs construiæ avec 
Excel, Jazz ou Multiplan ct la 
retravailler avec Lotus 1-2-3, 
Symphony, etc. Pnx (avec un 
câble) : 155 dollz 


Pour les réseaux locaux, voici un 
logiciel transformant un 
Macintosh en serveur 
MacServe d'Infosphere. D 
s'utilise avec le réseau Appletalk 
et un disque dur Apple, ou un 
Hyperdrive. Un uwlisateur du 
résesm peut aussi ukiliser les bases 
de données multi-utilisateurs 
(comme Omnis 3 ou de 
Dimension), et se servir du 
disque dur comme “spooler”, 
pour imprimer sans immobiliser 
l'ordinateur. Prix : 250 dollars. 


Voici encore les réseaux Ommnet 
(distribués en France par Access) 
sur lesquels on peut connecter 


simultanément des Macintosh et 
des IBM PC, (en tout 62 
micro-ordinateurs sur une 
distance de 1200 mètres) utilisant 
les disques durs Corvus 
Omnidive. Possibilités, 1à aussi, 
de partager les mêmes 
ressources : fichiers, impriman- 
tes, disques durs. Une version 
Omnitalk permet d'utiliser les 
disques durs en mulhi-utlisæeurs 
sur un réseau Appictalk. 


Édition 
électronique 


C'est vraiment la dernière folie à 
la mode : aux Étaw-Unis, les 
entreprises succombent aux 
charmes de l'édition électronique. 
Certains wilisaieurs CORBMencent 
d'ailleurs aussi à en éprouver les 
déconvenues : défaut d'encrage 
notamment sur les imprimantes 
laser. Î s'agirait d'un problème 
dû aux cartouches de recharge 
fabriquées par le japonais Canon. 
En attendant qu'il soit réglé, un 
programmes permet de créer des 
polices de caractères pour l'mpri- 
mante Laser, c'est Fonto- 
grapher d'Altsys, permettant 
de dessiner des polices, de les 
manipuler (rotations, ombrages, 
etc.). Un autre logiciel créé par 
Manhattan Graphles, l'éditeur 
de Ready Set Go, et baptisé 
Desk Deslgn est tout 
simplement constitué de 
“templates”, c'est-à-dire de 
maquettes de” prêtes pour éditer 
une lettre d'information, une 
brochure. Bref, c'est du clés en 
mains (préformaté, avec 
caractères selectionnés) où il ne 
reste plus qu'à ajoufer le texte. 
Prix : 70 dollars. BIP qui 
distnibue en France Ready Set Go 
en réalisera t-il une VF ? 
Plusieurs revues se sont créées, 
outre-Atlantique, exclusivement 
vouées à l'édition électronique. 
Parmi elles : Puhllsh, édité par 
le groupe publiant déjà la revue 
Macworld. On trouve même des 
leçons d'édition sur vidéo- 
cassettes (malheureusement illisi- 
bles à moins de disposer d'un 
magnétoscope tri-andard !). 


Des logiciels 
pour le Mac 


La décision d'Apple de ne plus 
livrer systématiquement Mac 
Wiite avec le Macintosh Plus, 
pour susciter la création de 
logiciels de traitement de texte, 
commence à poiter ses fruits. 
Voici, en provenance de Grande 
Bretagne, MacAuthor, d'Icon 
Technology, un traitement de 
texte bourré d'idées ingénieuses 








permettant notarument d'écrire cn 
colonnes (comme un logiciel 
d'édition électronique) de 
préparer des feuilles de style 
(comme Word), auquel ses 
premiers utilisateurs ne 
reprochent qu'une lenteur 
sensible surtout sur le S12Ko. 


ALS sc prépare à lancer Word 
Handler, un traitement de texte 
permettant notamment d'utiliser 
plusieurs fenêtres, qui sera vendu 
80 dollars (et 30 à ceux qui 
renverraient leur disquette 
originale MacWiite avant juin). 
LM Software va vendre 
Macspec, traitement de texte 
destiné à ceux qui veulent établir 
des spécifications, des devis et 
des notices techniques (avec table 
des matières automatique), SSI 
prépare une version pour le Mac 
de son traitement de texte 
WordPerfect, et Haba va 
vendie 100 dollars Haba Word, 
qui permet, comme MacAutbor 
l'écriture sur plusieurs colonnes, 
avec affichage àl'écren 
Du côté de Micrasaft, on met la 
dernière main à Works, un 
gramme qui viendra bientôt 
aire la pige à Jazz : 
télécommunications, base de 
données, tableurs, ct surtout un 
traitement de texte qui fait déjà 
saliver avec notamment des 
possibilités graphiques (dessin, 
tracé de lignes, etc.) intégrées. Ce 
programme Ià devrait êwe 
ultra-rapide, car résidant en 


Pour faire bonne impression, 
SHicon Press de Silicon 
Beacb Software permet 
d'imprimer des étiquettes, des 
cartes en utilisant les données 
extraites de la plupart des 
fichiers. En couleurs avec la 
nouvelle Imagewriter IL 


Bases de données 


Pendant un temps, le Mac a été le 
roi de la base de données : une 
nouvelle chaque semaine, 
structure de ses fichiers oblige. Et 
les français avec éème 
dimension et MacBase n'ont 
pes été les derrüers à dome. Les 
cadences se sont quelque peu 
ralenties chez nous mais, aux 
États-Unis, la gestion de fichier 
fait toujours florès. Avec le plus 
simple Record Holder de 
Software discoverles. Une 
petite gestion de fichier facile et 
rapide, permeuant de disposer de 
champs de 32Ko, de calculer, 
avec sauvegarde automatique. Ce 
programme ne permet toutefois 
pas de stocker des images au des 
dessins. Prix : 50 dollars. 
Pour le double de ce prix, 
MacRelax d'Haba est une base 
de données celatiornelie puissante 
ct agréable d'emploi. Enfin, 
Ilnterlace de Singular 
Software est également, pour 
95 dollars, une basc de données 
relationnelle, en même temps 
u'un générateur d'applications. 
y tace visuellement les liens 
entre les champs des fichiers, 


exactement comme dans 4ème 
dimension. Cette gestion de 
fichiers s'adresse surtout à ceux 
qui manipulent des chiffres et des 
calculs complexes. 


CAO et graphiques 


Le Macintosh accède aux 
possibilités des stations de 
Conception graphique assistée par 
ordinateur. Avec E-Z Draft de 
Bridgeport. Ce logiciel permet 
de réaliser des projections avec 
vue isométrique où orthogonale, 
de prélever et d'utiliser les 
dessins stockés sur des 
ordinateurs centraux, de créer des 
notices techniques, tout cn 
utilis ant toutes les possibilités du 
Macintosh et notamment en 
important des textes de Macwrite 
ct des dessins de MacDraw. 
Prix : 2495 dollars. Seulement. 
Easy 3D d'Enabling 
Technologies, importé par 
Infotique cst aussi un logiciel 
graphique permettant de "roodeler 
des surfaces cachées” pour 
erustes, architectes, ingénieurs, 
etc. Aussi facile qu'un jeu de pâte 
à modeler électronique. Toutes 
les perspectives tridimension- 
nelles sont possibles, ainsi que 
les éclairages différents, etc. 

Tbe Graphics Magiclan de 
Polarware avait permis aux 


prréror d'Apple // de s'initier 
l'animation, à la décomposition 
des mouvements et de créer des 
séquences animées. Le voici 


disponible pour le Macintosh 
uüllisant toutes ses facilités. 


Utilitaires 


A noter une version 1.1 de 
SideKick, les accessoires de 
bureau de Borland, qui 
fonctionnent avec le Macintosh 
Plus. À remarquer encore une 
version de Copy II Plus 
capable elle aussi d'utiliser le 
Macintos Plus et ses disquettes 
800K... 
Enfin, HD Util d FWB 
Software peut recopier sur un 
disque dur des programmes 
théoriquement protégés. Intercep- 
tant la routine demandant 
l'introduction de l'original, il 
ermet de se passer de celu'-ci. 
ix : 90 dollars. A remarquer, 
qu'il est nécessaire d'utiliser un 
"patch" particulier à chaque 
programmc installé. 


Matériel 


Du “hard” pour le Mac. Avec 
d'abord des disques de Warp 
Nine. Un disque dur externe 
d'une capacité de 20 Méga-octets 
our 795 dollars, un disque 
interne à la façon de 
l'Hyperdrive de 20 Mégas 
aussi pour 895 dollars. Et un 
lecteur de disquettes 800Ko pour 
239 dollars. 
Apple se prépare à sortir une 
version adaptée à l'interface SCSI 
de son disque dur au moment où 
ccux<i commencent à baisser. En 


France aussi où P-Ingénlerle a 
baissé le prix des “Hyperdnve” 
(15400F HT pour le 10 Mégas et 
18900F pour le 20 Mégas). Le 
même P-Ingénierie importe Mac 
Palette de Pixel Software. 


Un ensemble composé d'un 
logiciel, d'un moniteur et d'une 
modification du Macintosh qui 
permet de transformer le Mac en 
station graphique professionnelle 
en couleur de haute qualité. 
(résolution de 768 x 576 pixels, 
256 couleurs simuiwuvées dans un 
choix de 16 millions). Pour 
quelques 150 000 Francs (Mac 
compris), ce système permet 
d'obtenir sur l'écran, ou sur des 
films photos ou des transparents, 
des images couleurs de haute 
qualité. Dommage que son prxle 
réserve aux ”pius”. 
A remarquer, aussi, un buffer 
pour imprimante, le MacBuffer 
d'Ergotron. On peut y installer 
de 256Ko à 1 méga de mémoire, 
ct pouvoir ainsi utiliser le Mac 
pendant que l'imprimante 
ënprime. À noter que cc buffer 
cst parfaitement dessiné pour 
s'installer à côté de 
l'imagewriter 1, mais fonctionne 
aussi avec la nouvelle. Il permet 
accessoirement à deux Mac de se 

artager une imprimante. 

nfin, MacMemory dont les 
produits sont importés par 
CCAM a déjà étudié une 
augmentanon de mémoire pour le 
Macplus. Il s'agit d'une barrette 
qui s'installe sur l'emplacement 
disponible dans le nouveau Mac 
ct porte instantanément sa 
mémoire disponible à 2 Mégas. 


Et l'Apple // ? 


A l'exception d'une nouvelle 
version d'Appleworks (la 1.3) 
ürant part di lecteur de 800Ko ct 
des cartes d'augmentation de 
mémoire, les nouveautés portent 
surtout sur le matéricl. 

Une société américaine ("The 
Engineering Department”) a 
développé une carte permettant au 
Île d'utiliser les logiciels de 
l'IBM. Pour 500 dollars, 
auxquels il faut ajouter un lecteur 
compatible avec le PC ct un 
clavier type IBM. Dommage 
qu'avec la chute des prix des 
compatibles venus de Taiwan, 
l'ensemble revienne désormais 
quasiment au prix d'un “clone” 
complet 

Video Technology a tenté de 
vendre aux Etat Unis son Laser 
128, une réplique de l'Apple //c 
nanW en piime d'un pavé 
numérique ct d'une connection 
pour relier un supports de slots 
d'extension pour 395 dollars. Si 
les douanes américaines n'y ont 
rien trouvé à redire, Apple a 
prévenu que l'appareil relevait de 
la violation du copyright et 
demandé aux tribunaux d'en 
interdire la vente. 


Freeware 


Ce sont ces logciels disponibles 


gratuitement ou moyennant une 
petite redevance, qui compren- 
nent d'utiles accessoires de 
bureau, des utilitaires, des jeux, 
etc. Aux Etats-Unis, on peut les 
télécharger facilement. En France 
la pratique commence à se 
répandre. Les abonnés de 
Calvados peuvent d'ores et 
déjà, à condition d'être muni d'un 
modem, d'un logicicl de 
télécommunications évolué 
(comme MacTel 2), et d'un 
utilitaire de conversion (comme 
Binhex) se procurer un éditeur de 
ressources comme kResedit, un 
installateur de touches de 
foncion, comme FK installer, 
etc. 
En Grande Bretagne, le serveur 
Mactel auquel on peut s'#onner 
moyennant une cotisation peu 
élevée de 10 Livres sterling, offre 
es mêines services avec touke une 
foule de logiciels récents ct 
intéressants (notamment la 
version 4.6 du Switcher, etc.). 
On peut se brancher en 1200/75 
bauds sur ce serveur en appelant 
le 602 817 696 à Nottinghæn (de 
France composer d'abord le 19 
sr le 44). Si les lecteurs de 
om's connaissent d'autres 
serveurs réservés au Mac, qu'ils 
nous en indiquent Iles 
coordonnées et celles ci seront 
publiécs ici 


Adresses 


Dataviz - 16 Winfield St, Norwalk 
CT06855 

Infoesphere - 4730S.W.Macadam Av. 
Portland, Oregon 9720] 

Access - 10, rue Ampère Prolongée 
Pæc Technologique de Bois d'Arcy - 
78390Bois d'Arcy 

Altsys - PO Box 865410 Plano TX 
75086 

Publish - PO Box 51966 Boulder 
Colorado 80321 

Silicon Beach Software - 9580 
Black Mountain Road Suite PO Box 
261430 San Diego CA92126 
Softivare discoveriés - 99 
Crestwood Rd Tolland CT 06084 

Habs - 6711 Valjeaa Av. V an Nuys 
CA 91406 

Singular Software - 5888 Castano 
Drive San Jose CA 95129 

Brldgeport Machines - Bridgeport 
CT 


Infotique - 20 et 24, rue de l'Hétel 
Dieu 95388 Pontoise - Tel: 3073 14 
15 

FWB Software - 2040 Polk St #215 
San Francisco, CA 94109 

Warp Nine - 3216 Humbolt Av. 
Mianezpal's MN 55408 

P-Ingénlérie - 226 Bd Raspail 
75014 Paris - Tel. 43 21 93 36 
Ergotron PO - Box 17013 Mpis , 
MN 55417 

CCAM - 95, rue Lafayette - 75010 
Paris - Tel. : 47 80 22 23 

Calvados - BP 21-07 75327 Pans 
Cedex 67 

Mfactel - 15 Elmtree av, West 
Bridgford, Nottingham NG2 7JV 


Grasde Bretagne 
G 
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Alexandre Duback Bibliographie 


Entreprendre et gérer sur 
Macintosh (modèles Multi- 
plan), de Bill Bono et Ben 
Kalkis — Cedic-Nathan — 303 
pages — 225 F - Traduction. 


Ces deux ouvrages regroupent 
des modèles de gestion prêts à 
u%liser. Le travail est bien fait et 
la maquette bien conçue ; le seul 
problème, comme pour tous les 
ouvrages du genre, est le 
suivant : les problèmes propres à 
une entreprise peuvent-ils 
facilement être adaptés à un 
tableau tout prêt, ou est-il plus 
rapide de construire son propre 
tableau en partant de rien ? Je 
penche pour la seconde option. 
De toute façon, il reste l'intérêt 
pédagogique des exemples. 


50 modèles Muitiplan pour 
gérer sur Apple II et IBM 
PC, de Fabienne et Philippe 
Gysel — Editions du PSI — 196 
pages — 130 FF. 


Mêmes remarques que pour les 
deux ouvrages précédents. A 
noter cependant que certains des 
principes essentiels de la bonne 
programmation sur tableurs 
présentés dans les ouvrages de 
H. Thiriez ne sont pas appliqués : 


Les 19, 20, 21, et 22 juin 1986, Pom's sera à 


au Parc de la Villette (Grande Halle), porte de 


ainsi, la somme d'une série de 
valeurs n'est-elle jamais 
‘“englobée”, ce qui rend les 
formules nettement moins 
adaptables. L'englobage consiste 
à faire la somme depuis une 
cellule avant un bloc (si elle ne 
contient pas de valeur) jusqu'à 
une cellule après ce bloc (idem) 
au lieu de l'effectuer seulement 
entre les deux bornes : on peut 
ainsi insérer ou détruire à liberté 
dans le bloc sans remettre en 
cause la validité de la formule. 


Bases de données sur 
Macintosh, de Frédéric Joutel et 
Eric Tenin — Edimicro — 149 
pages — 88 FF. 

Faites le calcul : 9 “bases de 
données” en moins de 130 pages 
— introduction et conclusion 
exclues — cela fait moins de 15 
pages par programme, copies 
d'écran comprises. Certains 
logiciels sont présentés dans leur 
version US, alors que la version 
française existe. Il n'y a pas de 
tableau récapitulatif comparant les 
programmes en fonction d'un 
certain nombre de critères, pas 
d'analyse critique sérieuse, … 
Bof. 


Apple 
no 


Pantin à Paris. 
Nous vous attendons au stand B-10. 


N'oubliez pas de présenter ce numéro de Pom's : 
vous entrerez à demi-tarif..… 
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Utiliser les bases de 
données avec dBase IT et 
dBase III, de Claude Frasson 
— Editions d'Organisation — 250 
pages. 

Voici en revanche un livre bien 
fait, pédagogique, et avec de 
nombreux exemples de 
programmes. Un seul regret : le 
côté spartiate du maquettage, ce 
qui devient rare aujourd'hui, et la 
couverture à spirale de la 
collection qui, si elle facilite la 
lecture à plat sur une table, ne 
simplifie pas le rangement dans 
une bibliothèque. 


Utiliser  Wordstar, de 
Maureen A. Culleeney — Editions 
d'Organisation — 271 pages 
- Traduction. 

Mêmes remarques que ci-dessus 
en ce qui concerne le maquettage 
et la couverture. Heureusement, 
dans ce livre, de nombreux petits 
dessins et des tableaux encadrés 
rendent la lecture plus agréable. 
Un livre à conseiller pour un 
apprentissage approfondi de 


Wordstar. 
G 


Un collaborateur de 
Pom's vend à l'état 
neuf (sous 
emballage), un 
lecteur 140K0o //c 
(2000,00 F), un 
moniteur //c 
(1300,00 F), un 
stand //c(250,00 F), 
une housse //c 
(375,00 F), un 
joystick //e-/'c 
(375,00 F) et un 
manuel de référence 
fe (250,00 F). Ecrire 
à la rédaction qui 
transmettra. 


71 
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Courrier des Lecteurs 


J'aimerais poser quelques 
questions au su jet du compilateur 
TASC (compilateur Applesoft 
distribué par Microsoft) : 

° comment est organisé le 
rangement des chaînes de 
caractères ? 

+ existe-t-il une routine de 
nettoyage mémoire rapide qui 
fonctionne avec TASC ? 

+ peut-on réécrire les chaînes de 
caractères au même emplacement 
mémoire si elles ont la même 
longueur et le même nom ? 


Dominique OTTELLO, 75017 


Paris 


I est impossible de détailler ici le 
fonctionnement de TASC et en 
particulier du fichier RUNTIME 
utilisé pendant l'exécution d'un 
programme compilé. 
Schématiquement, on peut 
préciser les points suivants : 


+ La méthode de rangement des 
variables est comparable à celle 
de l'Applesoft : les chaînes de 
caractères sont stockées en 
descendant à partir de la valeur du 
HIMEM. 


+ Chaque utilisation de la même 
variable fait appel à une même 
routine, générée par le 
compilateur, qui permet de 
déterminer l'adresse du 
descripteur de la variable. Ce 
descripteur pointe lui-même vers 
la valeur courante de la variable 
précédée de sa longueur. 


Ainsi, par 
programme : 


10 INPUT A$ : PRINT AS$ 


après compilation, contient à 
partir de l'adresse $17B0, des 
instructions qui appellent, en des 
points d'entrée différents, une 
routine située en $17DC qui 
gèrent tous les accès à la variable 
A$ en précisant que son 
descripteur esten $17FE6. 


Après une exécution où la valeur 
de A$ est une chaîne de 40 "A", 


exemple... le 


le descripteur pointe vers 
l'adresse $95D6. Ici, on y trouve 
$28 (la longueur de la variable), 
suivi de 40 octets contenant $41 
('A"). 

° Contrairement à l'Applesoft, 
TASC ne duplique pas les 
chaînes identiques ; l'instruction : 


20 B$ = AS 


crée un descripteur qui pointe 
également vers l'adresse $95D6. 


+ Une routine de nettoyage 
mémoire est intégrée dans T ASC 
et appelée sous les mêmes 
conditions que l'Applesoft. Elle 
raffraîchit l'occupation des 
chaînes et réorganise les 
descripteurs. 


Ayant découvert votre revue par 
le numéro 21,je voudrais savoir 
comment sauvegarder, après les 
avoir saisi au clavier, les fichiers 
SET et FORMES4 du programme 
EDIGRAPH. 


J. BUTTANI, 68000 Colmar 


Deux instructions suffisent (elles 
peuvent être déduites des pages 
16-17): 

BSAVE SET, A$3000, L$FOO 
BSAVE FORMES4, A$6000, LS2 
DS 





Ayant rentré le programme HGR 
DUMP pour Epson {(Pom's 17), 
j'ai obtenu des résultat bizarres 
qui ne correspondent pas à ce que 
j'attendais. 


F. Cabanat, 75011 Paris 


Par omission, l'article ne précisait 
pas que le programme était 
destiné à fonctionner avec une 
carte d'interface parallèle 
compatible avec celle diffusée à 
l'origine par Apple-Seedrin. En 


particulier, il ne peut donc 
fonctionner sans modification 
avec une carte série. 


Si vous connaissez l'assembleur, 
les lignes 536 à 538 du 
programme source contiennent 
les instructions d'appel à la carte 
parallèle : boucle jusqu'à ce que 
l'imprimante soit prête, puis 
envoi de 8 bits simultanément. 


M'étant remis au Pascal, j'ai 
voulu utiliser les programmes en 
Pascal fournis sur les disquettes 
Pom's, après les avoir transférés 
à l'aide du programme BASPAC. 
Voici ce que j'ai constaté (mon 
équipement est classique : Apple 
Îl+ etcarte langage) : 


° si on part d'une disquette 
Pascal qui contient déjà un ou 
plusieurs fichiers, le programme 
que l'on trouve après transfert n'a 
rien à voir avec le programme 
original mais semble être une 
partie tronquée d'un des 
programmes existants ; 


° en partant d'une disquette 
fraîchement initialisée et ne 
contenant aucun fichier, la date 
du directory est remplacée par des 
"222", ce qui n'est d'ailleurs pas 
gén ; 

° je n'ai pas réussi à transférer le 
programme POINTEURS du 
Por's 18 ; je n'ai obtenu que des 
suites incohérentes d'octets, dont 
beaucoup de caractères de 
contrôle. 


André Pettelat, 75011 Paris 


Nous avons également constaté 
ce problème avec BASPAC lors 
de certaines conversions de 
fichiers, bien qu'il ne soit pas 
systématique. Lorsque BASP AC 
parvient à transférer un fichier 
avec succès sur une disquette déjà 
utilisée, la date du fichier est 
normalement la même que celle 
du fichier précédent du directory; 
en revanche, sur une disquette 
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fraîchement initialisée, la date est 
encodée de manière à donner un 
affichage "???" au catalogue. 


En cas de problème lors du 
transfert, il est donc préférable de 
le recommencer en utilisant une 
disquette Pascal dont le directory 
est vide. 


Enfin, le fichier POINTEURS 
contenu sur la disquette Pom's 18 
contenait par erreur le code objet 
et non le source. Vous le 
trouverez sur la disquette Pom's 
de ce numéro. 


Parmi vos anciens numéros, en 
existe-t-il un répondant au 
problème suivant : d'un côté un 
programme en Pascal, de l'autre 
des fichiers de données sur 
disquettes DOS 3.3. 


Comment puis-je convertir les 

fichiers pour qu'ils puissent être 
traités correctement par le 
programme en Pascal ? 


Jean Claude Decret, 33600 
Pessac 


Le programme BASPAC contenu 
sur toutes les disquettes des 
numéros de Pom's où se trouvent 
des programmes Pascal peut vous 
aider. 


Il faut néanmoins avoir, au 
préalable, converti vos fichiers de 
données (probablement sous 
format texte), en fichier de format 
binaire avec le bit de poids fort de 
chaque octet à zéro. Le 
programme Applesoft suivant en 
est une ébauche : 


10 D$ = CHRS$S(4) : À = 4096 
20 F1$ “FICHIER.TEXTE" : 
F2$ "FICHIER.BIN" 

30 PRINT D$ "OPEN" FIS$ 
40 ONERR GOTO 110 

50 PRINT D$ "READ" FI$ 
60 INPUT A$ 


65 IF A$ = "“" THEN 95 

70 FOR I = 1 TO LEN(AS) 

75 B = ASC(MIDS(AS,I,1)) 
IF B > 128 THNB=8B - 
128 

80 POKE À, B 

90 A = À + 1 : NEXT 

95 POKE À, 13 : A=A +1 


100 GOTO 60 

110 PRINT D$ "CLOSE" FI$ 

120 PRINT D$ "BSAVE" F2$ " 
,A4096,L" À - 4096 


qu'il faudra adapter si vos 
fichiers texte sont trop gros pour 
être contenus dans un seul fichier 
binaire, s'ils contiennent des 
virgules ou sont à accès direct. 


Cher lecteur du Minimic sur 
Rance, votre lettre relative à un 
programme Pascal pour 
impression mathématique ne 
mentionne ni votre nom, ni le 
nom de la rue... 

Pouvez-vous prendre contact 
avec la rédaction ? 


Un lecteur (courrier des lecteurs 
du 21) cherchait à modifier la 
version américaine d'AppleWriter 
ÎTl pour obtenir sur son 
imprimante le caractère «ç». ii 
suffit de modifier S octets pour 
réaliser le soulignement avec le 
caractère «°». 

Ces S octets à modi fter font partie 
du fichier OBJ.APWRT situés 
aux emplacements suivants : 


Piste 12, 

secteur OB, octet AC ; 
secteur OA, octet 12 ; 
secteur 09, octet A9 ; 
secteur 09, octet DC ; 
secteur 08, octet 01. 


vous devez à chaque fois trouver 
C9 DE 

Il'faudra remplacer ces valeurs 
par ‘C9 E0’ avec votre éditeur de 
secteurs favori. 


J.-M. GUILBERT, Vaujours 


Merci pour cette solution. Doit-on 
ajouter qu'il est indispensable 
d'apporter ces modification sur 
une copie d'AppleWriter ? 





Plusieurs lecteurs utilisant COGO 
nous ont demandé que faire pour 
y apporter des modifications. 


Modifier COGO est possible mais 
pénible du fait de la lenteur de 
Pascal et de la faible capacité des 
disquettes. 


* Il faut 128K 0. Le //e avec carte 


Chat Mauve perinet de travailler 
sur COGO 560, un //e avec une 
autre carte ou un //c ne permettent 
de travailler qu'avec COGO 280. 


* Vous devez utiliser le système 
APPLE.PASCAL 1.2, 64 Ko ou 
128 Ko, peu importe. 


* Vous devrez travailler sur une 
copie de APPLE? et deux copies 
de COGO (560 ou 280 c'est 
selon). L'une jouera le rôle 
d'APPLEI, l'autre accueillera les 
versions modifiées. 


* En bootant votre disquette 
APPLEI et utilisant le FILER : 


. Supprimer de APPLEZ2: les 
fichiers SYSTEM. ASSEM- 
BLER, 6500. OPCODES, 
6500.ERROR et CRUN- 
CHER. 
. Copier tous les fichiers 
TEXT de COGO: sur 
APPLE: et effacer de COGO: 
tous les fichiers de COGO 
(.TEXT, CODE et exemple) 
. Copier sur COGO: les 
fichiers suivant de APPLE: 
SYSTEMSYNTAX, 
SYSTEM.EDITOR, 
SYSTEM-FILER. 

Cruncher COGO: et changer 
son nom en APPLEI: par 
exemple. 


* APPLE: contient le système 
APPLE 1.2 128 Ko utilisé et doit 
être maintenant booté, tandis que 
APPLE?: doit être mis dans le 
lecteur 2. 

* I n'y a plus qu'à éditer et 
compiler COGO, puis le sauver 
avec le FILER sur la copie de 
COGO: destinée à accueillir les 
versions modifiées. 


A noter qu'il ne faut pas oublier, 
avant de compiler COGO 
560/280 : 
. soit de transférer EDIT 
COGO.CODE dans SYSTEM. 
LIBRARY en utilisant le 
programme LIBRARY de 
APPLE2 ; en effet, COGO 
utilise l'UNIT EDITION, qui 
est créé par EDIT- COGO. 
. soit de mettre dans COGO 
560/280.TEXT : 
USES:..u", (CAPPLEZ2:EDIT 
COGO.CODE*) EDITION; 


G 
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Bon de commande 


Disquettes 


(cf. Pom's n° 5) 
(cf. Pom's n° 8) 
(cf. Pom's n° 10) 
DISK-MANAGER (cf. Pom's n° ll) 
BASICIUM (cf. Pom's n° 13) 
EPPEE 50 Re (cf. Pom's n° 23) 
Échange ER, Sr iss etes (cf. Pom's n° 23) 
(cf. Pom's n° 15) 
MAX (Moniteur étendu) …....................., (cf. Pom's n° 18) 
DOMINOS (cf. Pom's n° 19) 
MACASTUCES (cf. Pom's n° 21) 200,00 F 
P-FORMAT J{, P-POLICE I (cf. Pom's n° 21) 200,00 F 
(cf. Pom's n° 21) 150,00 F 


Recueils 


N°4, recueil des revues 1 à à 140,00 F 
Disquettes d'accompagnement 1 à 4 200,00 F 
N°2, recueil des revues 5 à 8 140,00 F 
Disquettes d'accompagnement 5 à 8 200,00 F 
N°3, recueil des revues 9 à 12 140,00 F 
Disquettes d'accompagnement 9 à 12 200,00 F 


Revues, disquettes 
Revues 4 7 8  {n'9épuis) 35,00 F 


Revues 1011 12 13 14 15 16 17 18 192021 2223 24 40,00 F 


Disquettes Apple IL, le, //c 
1/2: 3: 4 5 6 7 8 9010 11 12 60,00 F 
13 14 15 16 17 18 19 20 21 22 23 24 


Disquettes Macintosh 
14/15/16 groupées 150,00 F 


17 18 19 20 21 22 23 24 80,00 F 
Mac ‘A’ 80,00 F 


Abonnements Pour 6 numéros à partir du nL__] 


Abonnement à la revue seule 200,00 F 
Abonnement revue + disquettes Apple IT, //e, //c 500,00 F 
Abonnement revue + disquettes Macintosh essaie 600,00 F 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 
Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


Adresse : 


Imprimerie Rosa y, 94300 Vincennes, Imprimé en France. Dépot légat : mai 1986. Ne 3368 
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UTILISER 


Mac Astuces 450 FF — Multiplan 

pour Macintosh 440 FF — Le livre de 
250 FF — Basic + 80 routines sur Jazz 220 FF — 50 modèles Multiplan 
Apple I195FF — Lesressources de l'Apple D JR ne Es . 
lc 95FF — Assembleur de l'Apple 420FF — ppleworks au travai _ 
Introduction à ProDOS sur Appie 85 FF — Photographie sur Apple et Amstrad 150 FF. 
Système ProDOS sur Apple JOUER 

n 490 FF — Programmation 
système de l'Apple Il 490 FF — DES LIVRES POUR 


Apple, modems et serveurs 402 programmes pour 


PROGRAMMER 


Clefs pour Macintosch 450 FF — 
Basic Microsoft 2.0 sur Macintosh 


.  430FF — Clefs pour l'Apple Ile CRÉER Apple 420FF — Super jeux 


et Ille 65CO2  445FF. Apple 420 FF. 
Programmation des jeux d'Arcade sur 


Apple l! 440FF — Apple, logique et 
systèmes experts 420 F — Création et 


animation graphique sur Apple 335 FF PS 
DEMANDER LE CATALOGUE GRATUIT à PSI. Diffusion - B.P 86 - 77402 LAGNY CEDEX 








